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“中华学习机”杂志创刊了，请允许我利用 
这个机会向她表示祝贺，希望这份杂志能够成 
为广大青、少年通往掌握计算机技术的桥梁，成 
为普及推广中华学习机的媒介，予祝她得到成 


流。 

计算机教育的内容不仅限于教授给中、小 
学生基本的程序设计知识，它还作为一种先进 
的教学工具，滲透到各门课程的教学过程中去， 
在计算机的屏幕上用图形、图象和文字可以进 
行形象化、趣味性的教学，大大有利于智力的开 
发，甚至对学龄前的儿童都大有好处。 

近两年来，我国中、小学计算机的配备以每 
年近五万台速度在增长 ， CEC -1, CEC — 1 A ， 
CEL — PC 型中华学习机已成为我国生产的主流 
机型。当前急需大量的系统的适合中国情况的 
课件 （Course ware ) ，以提供日益增加的用户（包 
括家庭）的需要。外国软件由于文化、背景、语言 
不同，多数不能为我所用，只能作为借鉴。 

机械电子部计算机司以及其所属的中国教 
育电子公司正在大力统筹安排，集中开发一批 
有普遍推广价值的优秀教学软件，我也希望“中 
华学习机”杂志能够成为教学软件开发、推广和 
交流的一块园地，为普及和推广中华学习机，为 
我国的计算机辅助教学做出应有的贡献！ 




功! 

最近十年来，微型机的出现和普及，为计算 
机辅助教学开创了全新的时代——计算机与基 
础教育相结合，计算机辅助教学从高等院校向 
中、小学扩大，在世界范围内形成教育改革的潮 
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! 成立中华学习机协会倡议书 I 


中华学习机是由我国自行开发、适合于学校教学和家庭使用的微盤计算机。中华学习机事业立足于微％ 
型计尊机与基础教育相结合，这也是当今世界析技术革命和教育改革的一大趋势。计算机进入学校走向家 | 
庭，将有力地促进整个社会进步和发展。 | 

为使我国在十年或十五年以后走上工作岗位的亿万中小学生成为掌搓信息社会技求和具有计算机基 f 
础知识的科技人才，当前开发連合我国国情的中华学习机是必要的、适时的。邓小平同志提出“计算机的普^ 
及要从娃娃抓起”的精神具有伟大战略意义。 ^ 

在国家科委、国家教委、国家计委、原电子工业部和中国科协的组织和领导下，我们已开发和生产出多 i 
种中华学习机，并开发和收集了数百种辅助教学软件和智力开发软件，但这还远远不能满足需要。今后我们! 
不伩要充分发挥国产化，臬约化生产能力，提供追合于大、中、小学、幼儿园、家庭以及其它领域需要的不同> 
挡次的中华学习机，而且要开发和提供丰富的、成龙配套的教学软件和&多知识性、趣味性的智力开 发软！ 
件。我们还要抓紧计算机师资队伍的培养，建立全国性的培训网和技求服务队伍，使中华学习机深入到学忮! 
和家家户户，真正成为广大青少年和社会其它领域的得心应手的智能工具。 | 

我们肩负着如此光荣而艰巨的历史使命，我们必须把研制开发、生产制遠、技术培训、维修服务、学校教! 
育、家庭应用等各方面力量联合起来，共同奋斗才有可能完成这一任务。为此，我们倡议建立中华学习机协专 
会，发展中华学习机事业，普及计算机教育。 | 

我们希望全社会都来关心“中华学习机”事业，搞好中华学习机协会，宣传中华学习机，爱护中华学习 I 
I 机，扶持中华学习机，推广中华学习机，为子孙造福，为中华民族的腾飞和我国的兴旺发达而共同努力奋斗。！ 

• 新闻报道 • 


面向世界、面向未来、面向现代化 
中华学习机新产品为教育事业做贡献 

一九八九年十二月十五日，中国教育电子公司在北京科学会堂举办了中华学习机新品发布会,隆重推出国家 
“七五”科技攻关项目和“星火”计划项目成果 —— CEC — PC 、 CEC — IA 、 CEC --1 R 等新型产品，同时发布七百余种 
最新教学、益智娱乐、家庭应用、个人事务管理等优秀软件，从而为中华学习机事业的发展和我国计算机教育的普 
及增添了光彩，为广大计算机爱好者和亿万青少年带来了福音。 

中国教育电子公司是机械电子工业部所属大型高科技企业群体。八七年公司与清华大学联合创建了高层次 
的技术开发队伍。在国家科委、计委、教委、中国科协和机械电子部的领导下，公司开发了适用于我国基础教育和 
家庭应用的普及型微型计算机—— CEC --1 型、 CEC — M 型中华学习机，组织全国十九家计算机专业工厂协作生 
产。迄今, CEC 型中华学习机已有十余万台的规模进入国内学校和城乡人民家庭，成为目前产量最大、销 M 最大的 
国产微机系统。 

今天发布的 CEC — PC 、 CEC — IA 、 CEC —1 R 中华学习机和软件是公司科技人员根据国内教学用机特点和国际 
市场需求自行设计的。 CEC — PC 与目前国际流行的 IBM — PC 机型完全兼容，并具有完善的汉字处理功能和单色、 
彩色多种制式显示功能，结合国内个人用机特点，设计时采用超大规模集成电路，使全部电路集中于一块主板上， 
并可接普通电视机作显示之用。 CEC — PC 是国内同类机型中配置最齐全的微机产品 。 CEC 1 A 与广泛应用于教 
学的流行机种 APPLE + II E 和 CEC — I 型中华学习机完全兼容，在存贮 M 上较 CEC —1型扩大了一倍，并配备五 
笔字型码和笔型码,增加了音响合成电路，是现行功能最全的教学用机。 CEC - IR 是公司出口型产品，该机具有完 
善的俄文字处理功能。样机试产后曾受到苏联和东欧等国计算机界和教育界的青睐。 

中华学习机的发展是一项振兴教育、振兴科技、振兴民族工业的大事，是提高整个国民文化素质 的大亊 ，我们 
呼吁社会各界有识之士积极支持，热情扶植中华学习机事业的成长与发展。 
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全国青少年计算机冬令营在惠阳师专 
隆重举行 


在迎接90年代第一个新春佳节的日子里，全国青 
少年计算机冬令营于90年1月10日，在风景秀丽、如 
花似锦的广东省惠州西湖旁畔惠阳师专隆重开营。这 
次冬令营是由国家教委、中国科协和机械电子部联合 
举办的，是自1984年我国开展青少年计算机竞赛活动 
以来，规模最大、竞赛项目最多、所取得成绩最好的一 
次全国青少年科技活动，也是邓小平同志84年题词 
“计算机的普及要从娃娃做起”五年来普及计算机教学 
的一次大检阅。 

来自全国30个省市和专业的代表队的90名青少 
年计 I ?机“高手们”充满胜利的信心，轻松愉快地步入 
各自的赛场，他们决心在本届计算机冬令营的各项竞 
赛活动中，赛出风格，赛出水平。 

程序设计竞赛组的赛题是计算机辅助教学软件一 
“高空跳伞”。选手们拿到脚本后，立刻进入良好的竞赛 
状态，他们凝神认真地分析脚本中的每一句话、每一个 
物理定律、数学公式和函数曲线、考虑软件的整体结构 
和分体结构，构思采用哪些模块和怎样实现脚本中的 
教学意图。54双灵巧的小手熟练地敲击着键盘，随着 
赛场上带有节奏和韵律的哒哒声，监示器的屏幕上显 
出文字、曲线，美丽的图形和动画，使人目不暇接。许多 
带着童心和雅气的精巧构思，反映出小设计者们独有 
的匠心，给专家和记者们留下了深刻的印象。 

在这一天的竞赛中，既紧张又活泼，孩子们的创造 
性思维得以尽情发挥，动脑动手能力得以充分表现，使 
人们想到一批末来四化大业的开拓者在奋进、在攀登 


选手们经过两天的角逐，全国青少年计兑机竞赛 
进入了紧张的评审阶段。评委们本着认真、负责、公正 
的态度，按照科学性，效果与技巧，可维修性和文档四 
项标准评分，并让前11名选手进行公开答辨，增加了 
竞赛的透明度。因此，公正、客观、科学是这次竞赛委员 
会评审工作的最大特点。 

这次竞赛成绩显著，出人意外，是很成功的。竞赛 
的题目难度较大，达到国际奥林匹克信息学竞赛的水 
平，要求学生充分发挥联想创造性，使用工具软件。从 
最后得分情况来看，有半数以上的队在规定的时间内 
全部做完，有几个队做得相当漂亮，专家们非常高兴。 
原预料只有两三个队可以做完，其他队估计只能完成 
局部模块。这一事实有力地说明，全国青少年智商者大 
有人在，他们使用工具软件的水平提高了，计算机竞赛 
水平提高了。使我们增强了信心，看到祖国的未来和希 
望，我们中华民族有自立于世界民族之林的能力，我们 
同样有自立于世界科学知识之林的能力。 

国家对这次全国青少年计算机冬令营非常重视， 
中共中央政治局委员、国家教委主任李铁映同志为这 
次活动题词 :“中 小学都要努力普及计算机”。全国政协 
副主席王任重同志出席开营式并作了重要讲话，他希 
望参赛青少年选手努力掌握现代化技术，做有理想有 
文化的一代新人，做共产主义事业的接班人。中国教育 
学会会长，中华学习机普及协会理#长张健同志，机械 
电子部计算机司司长李晔同志等领导出席了冬令营， 
并作了重要讲话和给获奖的优秀选手们发奖。 

本刊记者石开元王成 


第五届全国青少年计算机竞赛教师优秀论文 


北京 〗61 中学 

王慧 

在 LOGO 语言教师中，发展学生能力 

北京166中学 

戚小玲 

在计算机课外活动中培养人才 

华东师大二附中 
华东师大化学系 

蒋建国杨永健 
张伟敏 

微机在中学教育中的初步应用 

吉林师大附中 
吉林省教育学院 

孙维玉 

刘晓峰 

对我国中学计算机教育两类问题的初步探讨 

芜湖十二中 

汪小祥 

对目前中小学计算机教育中心几个问题的看法 

广铁一中 

樊辉 

程序设计训练的方法和体会 

福州市教委计算站 

邹春润 

福州市中学计算机教育发展规划的科学性 

广西南宁市二中 
广西电化教育馆 

韦国全 

苏芳来 

浅谈青少年计算机程序设计竞赛辅导 

广西柳州高中 

庞中坚 

在计算机教学中如何引导学生建立数学模型 

昆明市青少年微电脑协会 

吴建云刘远贵 

辅助教学的初次尝试 
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全国青少年计算机冬令营获奖名单 


软件设计竞赛获奖名单 


一等 笑：厦 

门 

蔡天宇 

陈澇 

福 

建 

李艰 

黄堃 

二等 奖：湖 

南 

薛炜 

彭坚 

淅 

江 

马莹旲 

茅宇晨 

陕 

西 

李波 

王兵 

三等 笑：安 

撤 

孟波 

吴喆 

上 

海 

賀春 

胡 m 

广 

东 

胡钊 

徐瑞斌 

辽 

宁 

奚海峰 

闵睿 

黑龙江 

褚尧 

杨樺 

解放军 

王湘新 

谭刚 

优秀奖：大庆油田 

蒋明亮 

韩冰 

海 

南 

蔡海宁 

符春全 

山 

糸 

刘俊江 

祁海 

山 

西 

赵俊才 

南凯 

广 

西 

陈俊 

罗开 

四 

川 

陈肯 

吴波涌 

云 

南 

解颖 

龚志波 

石 

油 

刘大伟 

齐徤 

甘 

肃 

牟晓隆 

王春波 

河 

南 

张耀枳 

李芳 

河 

北 

张旭明 

李巍 

吉 

林 

靳晓明 

王铮 

i 

州 

孙铁成 

付驳 

湖 

北 

韩昌哲 

韩锼 

铁 

路 

吕建新 

苏益南 


硬件组装奖 


一等奖：北 

京 

吴昭 


山 

东 

周翔 


二等 奖：辽 

宁 

李继泽 


上 

海 

鲍国斌 


厦 

门 

程卫斌 


三等笑：湖 

南 

张宏武 


广 

糸 

关本立 


解放军 

金松 


福 

建 

唐越 


石 

油 

王勇 


优秀 笑：吉 

林 

李庆宇 



浙 

江 

姚 

菁 

安 

徽 

汪洪涛 

湖 

北 

杨叶昊 

陕 

西 

雷 


甘 

肃 

杨 

rfcfc 
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四 

川 

則启元 

广 

西 

万建国 

铁 

路 

李 

力 

黑龙江 

王晓松 

青 

岛 

梁 

峰 

河 

北 

尹卫方 

云 

南 

曾颉飞 

河 

南 

陈 

放 

宁 

夏 

黄 

琛 

农 

垦 

吕 

鹏 


MP -1 微电脑开发应用奖 

一等 奖：铁 道部广州铁路 一中： MP — 1微 
机煤气报笮系统 

二等 奖：广 西省代 表队： Ml 1 -- 丨微机通用 
输入/输出接口 

福州 三中： MP 丨微机与中华学 
习机数据传送接口 
厦门 一中： MP — 1微机数据传送 
卡 

三等奖 ：青岛九中： MP 1微机 TTI .. 系列 
芯片測试系统 

国防科技大学 附中： MP -- 1微机 
时间程控系统 

胜利油田 一中： MP I 微机自动 
升国旗控制系统 

广州电子职业 中学： MP - 丨微机 
内存的扩充 

沈阳市二+中： MP —丨微机键盘 
的扩充 

山东濰坊一中 ：竞# 抢答器 

中华学习机 CAI 软件开发工具单项奖 


北京队广西队 




获银奖软件名单 



软件名称 

类别 

作者姓名和单位名称 

等 

奖 

函数与图象 

数学 

北京161中教师王惠 

气体性质自我测试 

物理 

上海54中学生胡颢 


巧童饮料 

数学 

北京161中学生尹松雷 

二 

同音字辨析 

语文 

北京教育软件研究开发中心教师刘庆俄刘胜利 

等 

中学英语词汇练习 

英语 

北京教师姚翔 

奖 

ACE 软件制作工具 

工具 

上海学生余志健、屠晓、丁胜 


结构化 BASIC 

工具 

北京清华大学卓小越等 


横波与纵波 

物理 

北京市13中教师陈春雷 

三 

高中生物教学目标一一学生自我评定 

生物 

上海风华中学教师朱道伟学生余志健 

多功能英语教学 

英语 

上海晋元中学教师顾根新 

等 

中学语文成语练习 

语文 

上海师大附中教师张渭元学生黄亮 

中西文全兼容 BASIC 

工具 

河南洛阳探矿三队陈盛旋 

奖 

TOOLSOFT CAL 工具软件 

工具 

清华大学学生潘宇东等 

超级汉字文章编辑系统 

应用 

四川雅安教育学院黄一禾 


华容道 

游戏 

北京161中学生王兴健 


游标卡尺和螺旋测微器的读数练习 

物理 

上海华东师大教师舒信隆 


振动与波 

物理 

北京清华大学学生李文丰 


大气环流 

地理 

广西南宁三中教师林涛学生邓宇春等 


高中物理复习-一-光学 

物理 

北京清华大学张彤翔 


函数作图及函数图象 

数学 

北京大学附中学生江晓晔 

鼓 

英语系列学习软件 

英语 

山东潍坊科技大厦苏琳 

心脏的构造及工作原理 

生物 

福州五中 


汉字形体演变 

语•文 

北京教育软件研究开发中心教师刘庆俄刘胜利 


通用数据库系统 

数•学 

北京门头沟大峪中学教师俞咪华 

励 

中华学习机图形编辑系统 

工具 

北京铁道部科学研究院缴鉴、李焕民 

&CODE 汉字处理系统 

工具 

湖北大学教师王允利 


超级音乐合成器 

工具 



计算机辅助设计-一 —auto cad 

工具 

北京大学附中学生沈国瑛 

奖 

A . F . C WORDSTAR 

应用 

沈阳团省委计算站技术员马玉斌 

维吾尔文字软件维汉学校成绩管理 

应用 

乌鲁木齐市教师王秉安 


动脑筋魔法阵 

游戏 

青岛海洋大学张天遨 


围棋 2.0 

游戏 

成都市成人教育学院傅叔平 


学生成绩管理系统 

管理 

武汉六中教师胡汉华 


学生成绩管理 

管理 

上海市徐汇区少科站郭崇烈 


音乐黑板 

幼、音 

北京101中陈维海 




中华学习机协会章程 

第一章 总则 产品信誉的评议。 


第一条本协会名称为中华学习机协会 
(英 文名 ： CHINA EDUCATIONAL COMPUTER 
ASSOCIATION ) 。 

第二条本协会由教育部门、中华学习机 
系列产品的研制、生产、技术服务部门和中华 
学习机用户自愿组成。国家主管部门已确认其 
合法权益，是社会团体法人。协会遵守国家法 
律，贯彻党和国家的方针政策，自主开展活动。 

第三条本协会宗旨 是：贯 彻邓小平同志 
提出的“计算机普及要从娃娃做起”的指示，促 
进计算机技术与基础教育相结合，以中华学习 
机为基础，实现教学手段、教学工具的现代化， 
实现计算机从单纯的投资类产品向消费类产 
品的转化，实现计算机应用的社会化、家庭化， 
进一步推动我国计算机教育事业的发展，加速 
全体国民特别是亿万青少年文化修养和素质 
的提高，为祖国四化建设培训和储备人才而做 
出贡献。 

第二章任务 

第四条协会围绕中华学习机产品，面向 
科研、面向生产、面向教育、面向应用、发挥桥 
梁和纽带 作用； 反映研制和生产部门、广大用 
户和教育部门的愿望和要求，传达贯彻政府部 
门的指示精神。 

第五条协会采取各种有效形式，致力于 
发展中华学习机的效益，提高中华学习机应用 
水平和普及率。 

第六条本协会的具体工作内 容是： 

(一） 协助政府主管部门组织计算机教育 
的政策研究，探讨我国计算机教育的途径、方 
法和模式。' 

(二） 对全国计算机教育应用情况进行调 
查，了解对教育用计算机硬件、软件需求 情况。 

(三） 组织专家讲座，开展技术咨询、技术 
交流、信息交流。 

(四） 组织技术协作、技术培训和维修服 
务，特别是中小学教师的在职培训。 

(五） 组织中华学习机系统和软件应用成 
果的评优和推广。 

(六） 组织用户对中华学习机生产厂家及 


(七） 设置中华学习机银奖，向成绩卓著的 
开发与应用单位和个人颁发。 

(八） 向有关部门反映研制生产单位、教育 
部门和用户的意见和建议。 

(九） 承办政府部门及其它团体委托的事 
项。 

(十） 发幼社会各界力量，支持和赞助中华 
学习机的普及和推广活动。 

(十一）出版中华学习机的软硬件资料、丛 
书、刊物和宣传品等。 

第三章会员 

第七条本协会由团体会0和个人会员 
(含国际会员）组成，凡参与研制、生产中华学 
习机的部门和个人，使用中华学习机的部门和 
个人，为中华学习机进行技术培训和技术服务 
的部门和个人，赞成本协会章程并按期交纳会 
费者，均可申请入会。 

第八条个人会员 权利： 

(一） 凭会员证可优先、优惠购买中华学习 
机硬、软件产品。 

(二） 凭会员证可优先参加协会举办的技 
术讲座、培训和技术服务活动。 

(三） 可参加协会举办的全体会员大会及 
各类大型社会活幼。 

(四） 可在协会会刊上优先发表本人的文 
章。 

(五） 可通过协会向国内外兄弟行业协会、 
学会取得联系。 

(六） 个人的创造发明可通过协会优先得 
到有关部门的鉴定。 

(七） 享有表决权、选举权、被选举权。 

(八） 有退会的自由。 

第九条团体会员 权利： 

(一） 优先茯得各种新型中华学习机软、硬 
件产品。 

(二） 生产厂 家可优 先享受产品宣传和市 
场信息。 

(三） 优先参加协会组织的技术接训和技 
术服务活动。 

(四） 优惠享用协会出版的资料、刊物和协 
会组织推广的优秀软件和扩展配件产品。 

(五） 以优惠价格获得协会内的技术成果 
和各种技术资料。 
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(六） 有权向协会提请鉴定或评审本单位 
或个人的技术成果，协会负责向上一级单位申 
报、推荐优秀的技术成果，并联系有偿转让。 

(七） 有权对协会各级领导机关的工作提 
出建议和批评。 

(八） 可通过协会向各级领导部门反映有 
关技术政策问题。 

(九） 可通过协会提出解决中华学习机的 
质量问题 

(十）行使表决权、选举权、被选举权。 

(十一）有退会的自由。 

第十条本协会会员的 义务： 

(一） 遵守国家法律，遵守协会章程，按期 
交纳会费，积极承担协会分派的任务，主动参 
加协会的各项 活动。 

(二） 积极总结中华学习机开发生产和推 
广应用的经验，向协会提供有关中华学习机的 
各种信息。 

(三） 积极支持协会刊物，订阅协会刊物。 

(四） 积极支持由教委和机电部组织评审 
优秀软件的发行工作.做好宣传和代铕工 

作，不得非法拷贝和复制，保护作者的权益。 

(五） 用户与生产部门会贸应经常进行质 
量跟踪和反馈。企业应在经济上支持协会活 
动。 

(六） 发杨协作精神，加强技术交流。尊重 
别人劳动，不泄露他人技术成果。 

第十一条申请入会或退会，均桉本会有 
关规定办理手续。 

第十二条对违反协会章程的会员，应进 
行批评，情节严重者，理事会劝其退会或予以 
除名。 

第四章会员代表大会和理事会 

第十三条中华学习机协会的最高权力 
机关是全体会爵代表大会。会爵代表大会闭会 
期间，由代表大会产生的理事会负责协会的工 
作。理事会每三年改选一次。 

第+四条理事会设理事长、副理事长、 
常务理事。常务理事由理事会选举产生。理事 
会将聘请名誉理事长和苦干頋问。在理事会闭 
会期间，常务理事会主持协会的日常 工作。 

第五章常设办事机构 

第+五条中华学习机协会的常设办事 
机构为协会秘书处，负责协会的日常工作，。秘 
书处在常务理事会领导下，由秘书长主持工 
作。 


第十六条衽书处的任务及权限由理事 
会决定。 

第十七条本协会下设若干工作委员会 
和专业技术委员会，在理事会领导下开展工 

第六章地区协会和分会 

第十八条省、市、自治区协会是中华学 
习机协会下属的协会组织。 

第十九条省、市、自治区协会成立须经 
总会审批，全称为“中华学习机协会 X X 协 
会”。地区性分会，由省、市、自治区协会审批， 
并报总会备案，全称为“中华学习机协会 
父父父分会”。全称中不再出现省、市字样。 

省级协会刻制公章，应经总会 批准； 分会 
刻制公章经省级协会批准。 

第二十条协会各级理事会，每三半改选 
一次，由代表大会民主协商选举产生。在大会 
闭幕期间，理事会成员可根据情况变化和工作 
需要，甶同级理事会决定变更和增补。省级协 
会理事变更应报总会备案。 

第七章经 费 

第二十一条协会活动经费主要 来源： 

(一） 协会会员单位和个人交纳 会费； 

(二） 资助和捐贈，包括政府有关部门给予 
的资助，国内外厂商、团体或个人的自愿 捐贈； 

(三） 有偿服务收入，包括咨询服务、出版 
刊物、编辑资料、举办展览等收入，承办政府部 
门和其它单位委托的工作所获 收入； 

(四） 技术成果推广、协作攻关、技术支援、 
技术市场收益； 

(五） 其它正当收入。 

第二十二条会员繳纳会费及管理办法 
另订细则。 

第二十三条各级协会的杜靠单位，应设 
立财会专帐，保障经费用于协会工作，不得挪 
作他用。 

第八章附则 

第二十四条本章程经全体会员代表大 
会讨论通过并报国家主管部门备案后生效，下 
属协会不再另订章程。 

第二十五条本章程的解释权属中华学 
习机协会理事会。 



中华学习机协会主要活动介绍 


L 颁发中华学习机银奖 

中华学习机银奖是中华学习机协会专设 
的社会性大奖，其目的是表彰国内外对中华学 
习机事业的发展和计算机普及教育作出重大 
贡献的集体和个人。银笑分综合奖和专 项奖， 
最高奖为纯银制成的“中华银杯”。 

中华学习机银奖每年领发一次，茯奖者可 
享受协会荣誉会员资格并拥有相应待遇。 

2- 全国青少年计算机基础知识竞赛 
在全国范围内组织青少年进行计算机基 

础知识竞赛，是中华学习机协会与其有关协 
会、学会共同举办的大型社会活动。竞赛优胜 
者可获得作为笑品的中华学习机产品。 

竞赛活动每年举办一次，形式主要是在有 
关报刊上登载试题，从应试者中 选拔。 

3- 全国青少年计算机程序设计竞赛 
为青少年软件爱好者提供显露身手的机 

会，为我国的计算机软件事业培养后备人才。 
协会将与有关学会、协会共同举办，每年一次。 

■竞赛优胜者可获得中华学习机产品作为 
笑品。 

4. 少年电脑之角 

为使青少年电脑爱好者有一个互相学习 
与交流经验的场所，协会将在北京市少年宫开 
辟“少年电脑之角”。由长期从事中小学计算机 
教育的老师亲临辅导，并组织参加者交流中华 
学习机软硬件开发、维修、应用的心得体会，进 
行业余爱好者开发的软件产品的交流和登 
记。 

5. 计算机爱好者夏令营 

在暑假期间为中小学计算机爱好者举办 
夏令營活动。活动地区以计算机的生产、科研 
或应用较好的，又 破邻名 胜的地区为主，使参 
加夏令營的青少年们在休息和娱乐中了解我 
国计算机事业的发展概况，增长感性知识。 


6. 青少年计算机教育基金会 

发动社会各界及海内外关心青少年计算 
机教育事业的人士，捐助用于青少年计算机教 
育的资金，有重点地在国内主要城市的中小学 
校分批建设计算机教室，幼儿园配置电脑游戏 
机，为祖国的现代化建设进行社会性的智力开 
发投资和培育人才做出贡献。 

7. 中华学习机硬、软件技术培训 

以中华学习机产品为主，利用每年寒、著 
假举办青少年、中小学教师、家长等不同层次 
的计算机硬、软件培训班，邀请计算机专家、教 
师授课。培训班结业后由协会颁发证书。 

与有关学会、协会共同举办“跟我学装微 
电脑”讲座，由本协会提供教材和套件。 

8- 产品倌誉评测 

组织中华学习机用户对国内生产的各型 
学习机及国外同类产品进行产品信誉评測，公 
布评测分数，以沟通企业与用户的双向交流。 

9. 产品质量评测 

组织中华学习机用户对国内生产的中华 
学习机进行质量评测，公布评测结果，及时将 
质量问题反馈到生产厂家，以维护产品信誉。 

质量评测中的优胜者，可列入中华学习机 
“银奖”候选名单。 

10. 创办中华学习机会刊、会报、专辑 

交流中华学习机系统和软件方面的技术， 
沟通信息，提供资料，介绍国内计算机市场和 
教育类电子产品的发展概况。 

11. 建立中华学习机软件登录中心 

为收集和推广软件专业人员、广大青少年 

及业余爱好者开发的中华学习机软件，拟在国 
鬥各大城市建立软件登录和初审，然后上报软 
件登录中心，交中华学习机软件评审委员会终 
审，合格者正式公开发行。凡由登录上报的软 
件可通过登录中心进行有偿交流。 
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• 新闻报 道 • 

华光 IV 型计算机-激光汊孛编辑排版糸统 


邋 it 设计生 


由潍坊计算机公司、北京大学、邮电部杭州通信设 
备厂、中国科学院长春光机所、昆仑电子印刷设备服务 
公司等单位研制的华光 IV 型计算机- 一 ___激光汉字编辑 
排版系统一九八九年十二月二十六日在北京通过设计 
—产定型鉴定。 

华光型计算机 _1 激光汉字编辑排版系统是国家 
“七五”重点攻关项0,是我国印刷出版行业脱离传统 
铅排作业进入计算机排版的关键技术措施之 

一九七四年，周恩来总理亲自作出安排，委托当时 
的第四机械工业部等单位作出规划，开发电子排版技 
术，使我国的新闻出版印刷行业进入电脑化。十五年 
来，这一宏伟规划已初步得到实现。自一九八六年华光 
® 型鉴定以来，华光型计算机激光照排系统技术又有 
了重大的发展。应该说 :华光 IV 型是华光系统1 5 年来 
发展中的一个重要转折点,是华光系统走向成熟，真正 
成为一个商品的标志。 

华光 IV 型系统与 m 型系统相比，在以下诸方面有 
了较明显的进展:采用超大规模集成电路技术，用专用 
芯片实现了王选教授等人的汉字信息压缩及高速还原 
的专利技术，在高质童字形信息的压缩倍数、字形复原 
速度、宇形变化和旋转功能、铺网功能和体积小等主要 
方面均居国内外领先地位;采用大屏幕交互式排版技 
术，使报纸排版软件又向前迈进了一步，继续保持国内 
外领先 地位; 华光 iv 型是世界上第一个采用大屏幕组 
版，并直接修改通真大样的中文报纸组版系统;华光 1 v 
型是世界上唯一的文字、网纹、花边和图片一起整页编 
排和整页输出的中文报纸编排系统；采用图形处理技 
术，使各类出版物中的黑白图片和电子线路图、机械图 
等十分方便地排版，并与文字内容同时输出；采用先进 
的工艺技术，使照排系统的核心部件——照排控制器 
的稳定性能大大提高，超过了通用微机的平均无故障 
运行时间，形成字形生成速度达700多字/秒的能力， 
远远高于任何其它系统，从而使华光 iv 型系统成为世 
界上输出速度最高的中文精密照排系统和实际输出速 
度最高的中文台式出版系统(轻印刷）。采用即有批处 
理又有交互式软件和集成软件的技术，研制成功新一 
代的具有世界水平的排版软件;华光 iv 型字体字号齐 
全，字形修饰丰富、版面活泼多变，排出的报纸在版面 
美观多变方面居领先地位;华光 iv 型是一个可靠的报 
纸编排系统，也是国内唯一的实际用于编排日报的系 
统。现在系统具有22种字体和 22 种字号，并具备繁体 
字排版功能。 

总之，华光 IV 型计算机——激光汉字编辑排版系 
统，在系统硬件、软件技术水平、排版软件的功能、版面 
质量、图形排版功能和图形质量以及系统的适应范围 


户史型鉴走 


等主要方面均已达到国内外领先地位，使系统真正达 
到了全版式、多文种排版功能。 

自1986年华光 ffl 型系统鉴定以来，华光 IV 型电子 
出版系统共有500多套已用于新闻、出版、印刷单位。 
并已销往香港、澳门、台湾、新加坡等地，系统总销售额 
已达 2. 2亿元,创利税2300多万元，创汇近百万元。并 
用国产照排系统替代进口设备，已为国家节约外汇开 
支6500多万元。预计到1990年上半年,北京地区的全 
部日报，所有的省报和省会所在地的日报或晚报（除一 
两家外），将全部采用华光照排系统，原来已采用进口 
照排系统的五家新闻单位，现已有四家转而采用华光 
IV 型照排系统。 

稳定可靠运行的 IV 型机系统，在报纸书刊杂志排 
版方面发挥了很好的作用，带来了明显的经济、社会效 
益。这些单位采用了计算机排版技术后,厂房面积可减 
少68%,人员减少60%,电力消耗减少6 8 . 7%，书刊 
成本下降了 17. 3%，而且每年还为国家节约了一大笔 
用于治理铅污染，环境、劳动保护方面的开支。 

这一系统的研制，始终受到党和国家领导同志的 
关心，邓小平同志曾 批示: “应加支持”，方毅同志 指出： 
这是印刷技术从铅与火的时代到光与电的时代的巨大 
转变。胡乔木、周培源等领导同志也多次亲临科研生产 
基地，对科技工作者给予巨大的鼓励。 

十五年来，这一项目一直是在机电部(原电子部） 
的直接领导下进行的，原国家经委和现在的国务院重 
大装备办公室是这一项目的上级领导，从83年以来， 
给予这一项目有力的支持和领导，国家计委、科委和教 
委对这一项目也给予了多方面的关心和帮助。几年来， 
这一项目获得第十四届日内瓦国际发明展览金牌、 
1987年国家科技进步一等奖、 1 M 9 中国专利金奖、北 
京国际博览会金奖等近二十项大奖，没有上级领导的 
关怀、帮助、支持，这些成绩的取得是不可能的。 

巩固十多年来形成的华光集团内部联合，并朝华 
光电子出版系统产业集团方向发展，是这一系统成功 
的保证。潍坊计算机公司、北京大学、邮电部杭州通信 
设备厂、中国科学院长春光机所、昆仑电子印刷设备服 
务公司等单位将进一步团结一致，通力合作，继续发展 
我国的电子出版事业。 

经过十余年的科研、生产过程，我们已具有一批从 
事于计算机——激光汉字编排系统的科研、生产、销售 
和服务的力量。中国的出版、印刷技术改造的市场是广 
大的，我们相信，这一市场一定要也一定会由我们中国 
的科学技术来占领。我们一定要在较短时间内，作出更 
大的努力，为从根本上扭转我国印刷出版工作面貌而 
做出更大贡献。 
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• 专家论 坛 • 


论我国青少年计算机教育与培训 

吴文虎副教授在1989年全国青少年计算机冬令營的报告 


1989年春天,我和“学生计算机世界”主编凌启渝 
一起代队去参加首届国际奥林匹克信息学竞赛，三名 
中国选手在与外国选手的激烈竞争中，发挥了自己的 
聪明才智和所掌握的计算机知识与技能，克服了机器 
故障多和电源掉电等困难，取得总分第二的好成绩，三 
名选手均获三等奖。以前没有机会去实地比较，看不清 
我们的水平究竟如何？这次走出中国，来到世界赛场， 
再回过头来,总结从84年到89年，我们开展青少年计 
筧机普 及活动的实践，增强了信心。下面分几个题目来 
讲。 

一、对我国开展青少年程序设计竞赛水平 
的估计 

事物的规定性是在对比当中来加以认识的。竞赛 
的试题可以反映竞赛的水平，首届国际奥林匹克信息 
学竞赛试题原型是由组委会发函给各参赛国征集来 
的。我根据国内竞赛的经验和掌握的难度，事先给组委 
会寄去五道题目，其中的一道被组委会称为 “Chinese 
box ” 的题目被选中。竞赛是在保加利亚首都索菲亚台 
开的。我们是5月3日从北京乘国际列车经蒙古、苏 
联、罗马尼亚、到达保加利亚的首都索菲亚的，行程一 
万公里，历时十天。15号到达到索菲亚，17号正式比 
赛。17号上午决定用什么题目来比赛,题目都是征集 
来的，组委会题目的难易程度和合适不合适，它事先准 
备了五道题,这五道题要经过所有领队加以表决，由组 
委会主席和领队组成的竞赛委员会，把题目事先一一 
讲清楚。这五道题都是经过组委会改造过的，写在黑板 
上,各题逐人表态，记录赞成 ( yes ) 或反对 ( No ) 的票数， 
先将得票最少的一道题目淘汰,之后将余下的题目再 
表决，每轮淘汰一题，经过4轮表决，最后选出来两道， 
一道是保加利亚的，一道是我们中国的原型题目，再进 
行表决，结果我们的题目大家认为比较合适，适合于竞 
赛，适合于发挥、适合于让选手们有回旋的余地。当然 
这道题目也是经过组委会改造过的。这是唯一的一道 
试题，要用4小时的时间做完。当我们经过讨论试题和 
评分原则之后，也就到了选手们下午进入赛场的时间 
(2 点），我们就不允许与选手再见面，这就起到了与参 
赛选手间的“隔离”作用。这道试题有相当的难度、但又 
不过多依赖数学知识。通过解这道题，可以考査学生的 
思路、计算机程序设计知识、编程能力与技巧，特别是 
题目中所包含的不定因素，给竞赛选手以更多的回旋 
余地,也给他们创造性思维的发挥提供了条件。 


从这次国际竞赛能够选中我们中国的题目作为原 
型来看，我感到自84年以来，我们国内所组织的青少 
年程序设计竞赛的命题原则是正确的,题目的难易程 
度是恰当的，符合世界的潮流和方向 。从 86年和88年 
两届全国青少年程序设计竞赛的题目难度和份 ft 看， 
都要比这次国际竞赛的难度大、份量重。86年全国竞 
赛上机题目有五道题，每一道题的难度都可以和所谓 
的 Chinese box 相比拟，但竞赛时间只有 2 小时,平均每 
道题只有24分钟，而这次国际竞赛一道题目用4小 
时。从选手得分情况看,86年的冠军李劲同学5道题 
全做出来了，从他编写的程序的清晰度、优化程度，以 
及运行结果来看都是非常突出的。当时，我在领队会上 
说过，你那个队如果做出一道题目就成功了，做出2道 
题目就已经很不错了，如果能做出3道题目就向你祝 
贺了。竞赛不是考试.要分出高低、拉开档次。88年竞 
赛中的庄骏和柴海新也都在规定的2小时内做完了难 
度较大的4道题。原来我们曾经估计，在全国竞赛中获 
一等奖的选手都有可能在国际竞赛中获奖，这次国际 
比赛证实了我们的估计。因此 我挺： 外国的月亮圆，中 
国的月亮也圆。我们没有理由妄自菲薄，只要我们努力 
是可以走向世界的。 

二、 要重视全面素质的培养 

计算机程序设计竞赛是一种综合性的智力与能力 
的竞赛，是促进普及基础上提高的一种好形式，国内竞 
赛和国际竞赛都要求选手具有全面的素质。 

打好基础是造就德智体美全面发展有用人材的需 
要，拨尖人才更需要有宽厚的基础。几年来我们在普及 
计算机知识的过程中，始终强调注意学生全面素质的 
培养，要引导学生学好数理化文史地等基础知识，培养 
观察能力、表达能力、逻辑思维与抽象思维能力，综合 
比较能力，再有就是动手实践能力。实践是能力赖以生 
长的土壤。随着中华学习机的推广与普及，我国青少年 
学习计算机的实践条件会有较大改善，希望老师、家长 
和同学们能充分利用已有的条件.使普及的面再宽一 
点，有了普及的基础.我们提高才有希望。 

历届全国竟赛的众多选手大多表现出良好的全面 
素质，这次去保加利亚参赛的三名选手，他们不但基础 
知识学得扎实，外语水平高，而且他们分析问题和解决 
问题的能力以及上机实践的能力都很强。 

三、 鼓励创造性思维与因材施教 

培养创造性思维能力对拨尖人材的成长至关重' 
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要。过去我们在全国性竞赛的评分过程中，对解题的创 
造性强调得不够。从这次国际奥林匹克信息学竞赛的 
评分中，我感到深受启发，今后是否可以设想，题 H 做 
对只能得6 0 7 0分％做得好，有创造性，还可以加 

30 — 40分。鼓励我们&孩 F 从小就勤于思想，勇于创 
新。我感到，我们这次软件竞赛中，创造性的发挥表现 
得很好，看后我们很受鼓舞，达到现在这样水平，大家 
感到意外，我们很高兴。中国儿童智商高的大有人在， 
可塑性很大，创新精神宽培养，靠鼓励 ，赁 老师、家长， 
以至全社会给他们创造条件。 

在拨尖人才的成长过程中，我感到一定要贯彻因 
材施教的原则。要针对学生的特点启发他们的创造精 
神，在这方面全国各地很多辅导老师积累了很好的经 
验。他们通过各种教学手段，比如向学生介绍并演示一 
些好的软件，吸收学生参加科技小组的活动，指导学生 
开发各种计算机辅助教学软件或者其它的实用软件， 
在实践中培养学生的动手能力的创新精神，收到了很 
好的效果，历届软件评选也从一个侧面反映了这种效 
果，特别是这一 •次软件竞赛，我们要很好地总结这方面 
的经验，重点放在培养人的经验，既要见物，更要见人。 

鉴于我们的条件已趋成熟，又有参加国际大赛的 
需要，我建议学习数学、物理、化学学会的经验,尽快成 
立奥林匹克计算机学校，作为更高层次因材施教的措 
施，给拨尖人才的成长创造条件。同时,在我国改革开 
放日益深入发展的条件下，我们 g 当积极做好准备，在 
几年以后，在中国举办国际奥林^克计算机竞赛。如果 
说要做这样的竞赛的话，我们需要做很大的努力，特别 
是我们还要使我们选手的水平有进一步的提高。 

四、对青少年计算机普及教育的几点看法 
和想法 

西方的学者对计算机文化的看法，众说非云。现在 
看来，程序设计是第二文化的这种说法显然不够全面。 
随着信息技术和软件工程的发展，人们认识到计??:机 
将会在日常生活中的各个方面发挥作用。人们必须学 
会使用诸如字处理、数据库、电子报表、电子通讯等现 
成的软件，而不必自己设计这些软件。因此，许多教育 
家提出 ：计算 机文化应该以教程序设计语言为主，转向 
将计算机作为一种资源 、一 种工具来掌握，但不同学派 
对工具的解释、应该掌握的程度有不同的看法。我认 
为，做什么和应该怎样做，要立足于我们的国情，我们 
能够提供给中小学机器的数母与发达国家比，是很少 
的，机器的速度低，内存容 M 小,软件又不十分丰富，师 
资力董 还比较薄弱。在这种前题条件 F ， 应该如何做， 
这是需要认真讨论的问题。 

目前许多省市已将计算机课程作为中学的选修课 
列入教学计划，并且已经不是只教 basic 语言和程度 
设计方法，开始使用 cai 课件进行教学，这些都是良 


好的开端。要把计算机当作得心应手的工具来用，必须 
粗懂计算机是怎样工作的。从学习•神较容易入 N 的 
程序设计语言入手，来达到粗懂的目的，可能是捷径。 
学生在学习有过程中，可能会遇到这样一些问题 ：自己 
想做什么，计兑机能做什么，怎么做才符合逻辑、符合 
实际，怎样做才能事半功倍，获得高的精度，高的效率。 
计算机与算盘、计算器等一般的工具不同，它是人脑的 
延伸，是智力开发的工具•。计算机把最现代化的计 T ?: 工 
具和人的主观能动性结合起来，给人的聪明才智的发 
挥提供了良好的环境。计算机又是最为严格的“老师”， 
不允许那怕是半点马虎，它要求学生脚踏实地，从需要 
和可能两方面考虑问题。思维方式正确与否可以立时 
得到来自这位“老师”的反馈信息。让学生迅速验证自 
已的设想，纠正失误，发现不足。国外研究表明，对儿童 
来说，认识方式、空间想象能力、推理能力、思维的完整 
性和灵活性等都与学习程序设计语言有正相关。当然， 
最现代化的教学工具，也存在着教学方法问题，如果袭 
用注入式的教学方法，采用晦涩刻板的教材，乂不注電 
上机实践，学生势必望而怯步，兴趣索然。我主张采用 
启发式讨论式的教学方法，强调动手实践，注意调动学 
生学习的积极性与创造性。计笕机与基础教育相结合 
是当今世界教育的趋势，而计 I ?机辅助教学应该是它 
的结合点。在我国开展计算机普及教育，应该大力扶植 
CAI 、 CAD 、 CAM 活动，国外许多专家认为，要允分发挥 
计算机用于教育的潜力，学会计算机固然重要，而将计 
I?- 机作为改革传统教学的一种工具和手段，则更为重 
要。我觉得当前应该抓好六件事。 

一、 组织编写与征集用于中小学的 CAI 课件脚 
本，改变那种分散的无组织的方式。 

二、 组织 CAI 课件开发，可以采取定点招标的方 
式，集中优势攻关方式，可以效仿出版界，避免低水平 
的重复应有查重资询的设施。 

三、 组织工具软件的开发与推广，不断研制萵水平 
的工具软件。我感到咱们这次软件竞赛，-个很重要的 
问题，就是工具，也可以换句话说，是工具软件在•定 
形式上的大赛。你没有工具软件，你是赛不出水平的， 
是很吃力的。因此，通过这次竞赛，也积累了经验，可能 
是一个很好经验。 

四、 组织现有课件的推广应用，收集师生在使用当 
中的反馈信息，以便提高课件质 M 。 

五、 组织一、二个学校、一、二的学科，配合课觉教 
学，试点搞 CA 1 教学，总结经验之后，面上推广。 

六、 表扬 CAI CAD CAM 等方面有贡献的中小学 
教师和科技工作者。 

从-九八四年到一九八九年，我们在计算机普及 
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• 专家论 坛 • 


中华学习机产业建设的宏观战略部署急待加强 

机电部计算机司高工于万源 


中华学习机自诞生以来已累计生产近10万台，有 
20家企业为此付出了艰辛劳动，推广应用工作取得较 
大进展，这是值得庆幸的事。 

当前，由于国内整个计算机行业遇到资金紧缩，原 
材料涨价，加上今年四月分，由于键盘配套件等质量问 
题，生产无法顺利进行。而在数月之后，配套问题虽已 
开始好转，却又赶上市场需求“疲软”，致使整个中华学 
习机产业的发展遭受到严重干扰。 

为了排除这种困境，必须迅速加强甲华学习机产 
业建设的宏观战略部署工作。 

一、 产品结构设计需要强化市场导向工作 

CEC - I 型机的性能价格比已越来越不适应市场需 

求，特别是 PC / XT 压缩型微机热兴起之后，人们持币 
待购(想干脆给孩子购一台后一种微机，可以一直从中 
学用到大学，价钱相差仅1000元左右），进一步加剧 
CEC — I 型机市场的“ 疲软' 

针对这种状况，有必要发动一次产品结构设计的 
强化导向工作。把各家巳设计好的压缩型 PC / XT 机及 
所掌握的各种国外参考样机来一次横向展示评比，然 
后从各个角度进行重新再设计。评比工作中应首先制 
定评测标准， 包括： 电路设计，结构工艺设计，质量保证 
与监控，外型设计，包装与商标设计，系统软件，集成支 
撑软件与应用软件设计。此外，应特别注意国产化成分 
的定量分析。考虑以上因素之后，再来制定总的评价性 
能价格比办法。这样做的目的，是使各厂家能大体上在 
同等条件下进行友好竞争，此外，也可群策群力，集中 
智慧进行高性能的综合设计工作•从而大大改善各家 
单干中眼光狭窄的毛病。这样做，也还能主动刺痛工厂 
自己，下决心改进现有 CEC — I 型机结构设计、性能价 
格比的劣势，重新找到生路。这项工作，也还可以为清 
理整顿现有计算机市场秩序奠定基础。这项工作之后， 
对开展市场同类机器的评展或行政强行检查，查禁走 
私倒卖，为国产微机发展扫清障碍。使工厂放心地，在 
同等竞争条件下，加倍努力开发、生产国产微机。 

二、 用户市场需求分析 


各厂对已销售出的机器，使用状况进行调研，在此 
基础上召开用户市场需求分析研讨会议。研究市场内 
容 包括： 

1.市场分布，用户类别。 

2•用户使用效益 分析: 二次开发产生新产品、应用 
产品、应用工具、应用软件及其它社会效益。 

3. 产品配套，维修服务状况分析。 

4. 广告与市场信誉分析。 

5. 向新、老用户介绍现有新产品、老产品改进部件 
(系统软件、高智能卡、软件开发工具、各种应用软件 
等）。广泛听取改进意见。 

6. 建立用户联谊 f 、 谈需求分析组织，以便经常得 
到市场反馈信息，不断 k 新产品，改善维修服务工作。 

7. 建立用户奖励基金，对中华学习机产业建设做 
出各种贡献的用户，均应受奖。 

三、 清理整顿计算机市场 

1. 对经营学习用计算机企业进行分类，按照国家 
法律进行正当营业的企业应受到保护，对他们在各方 
面的进步应予肯定，并给予有针对性的奖励。 

2. 对有经营学习机、游戏机的企业应检查其营业 
范围内进口产品的批件与许可证，对违纪产品进行查 
处。对水货、假冒商标等劣质产品，发动用户进行揭发 
检举，展出示众，通报查处。 

四、 出□创汇基地建设 

出口产品必需具备以下 条件： 

•质量达到国际考核标准 ( U 、 L 、 Fee …等）。 

• 性能上有中国独特的成分(硬件、软件）。 

• 外形要漂亮。 

•价钱上有竞争力。 

• 出口企业则必须具有规模经济生产能力，经营 
管理，优秀销售服务能力。 

为此，出口创汇基地建设应抛弃司空见惯的老式 
传统建设方案，应当进行符合上述条件的基地建设。 

例如 • 增设特殊图形、图像、语音、文字、数字等综 
合开发实验室与新产品中试线。 


育上有了一定的基础，积累了一定的经验。从参加国际 身于世界科学强国之林。只要我们万众一心，努力奋 

奥林匹克信息学竞赛来看，我感到我们应该增强信心，斗，我们是一定能够达到目标的。 

我们有能力自立于世界民族之林，我们同样有能力跻 
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• 程序剖祈与编程技巧 • 


CEC - I 机的音乐语句浅谈 


湖北师范学院附中肖思明 


我国于1987年推出的 CEC -- I 型中华学习机，为 
APPLE — JI 的向上兼容机。驻机解释系统软件有若干 
扩充，特别是在发声方面，增加了一条 BASIC 语句命 
令 MUSIC (机内代码为 $ EB )， 为用户提供了不少方 
便。 

在此以前，所有 APPLE - n 及其兼容机，因为 ba ¬ 
sic 中无音乐语句命令，用户要进行音乐设计，必须要 
借助于机器机器语言发声子程序。最早出现的机器语 
言发声子程序 如下： 

程序一 

$ 300— 存频率码 F 
$301 — 存音长码 T 


$ 302— 

AC 

00 

03 

LDY 

$300 

$305— 

AE 

00 

03 

LDX 

$ 0300 

$ 308— 

A 9 

04 


LDA 

# $04 

$30 A — 

20 

A 8 

FC 

JSR 

$ FCA 8 

$30 D — 

AD 

30 

CO 

LDA 

$ C 030 

$310— 

E 8 



INX 


$311— 

DO 

FD 


BNE 

$0310 


$313— 

88 


DEY 


$314— 

DO 

EF 

BNE 

$0305 

$316— 

CE 

01 03 

DEC 

$ 0301 

$319— 

DO 

E 7 

BNE 

$ 0302 

$3 IB — 

60 


RTS 



由程序可知， Y 的初始值越大，则单元时间内的喇 
叭振动次数越多，相反在喇叭每两次振动之间的间歇 
时间相应缩短。这符合声音的音调高低与单元时间内 
振动次数成正比的自然规律。 

但此方案在音长码所反映的发音持续时间方面略 
有不足，即音长码 T 的单元时间值不是一个定值，而 
是随频率码的变化也有变化。这样原设计#只好用中 
频声音的持续时间作为一个单元的标准，而不是以低 
频端或高频端发出的声音的持续时间作为单元标准， 
那样高低两端的差异要大一些。这是因为 APPLE — n 
及其兼容机是用指令而不是用经过的时间来改变声音 
的频率，可惜 APPLE - n 及其兼容机中都没有实时时 
钟，只能如此处理。 

为此出现第二方案 如下： 


• 增设图、文、艺术并茂的手册编辑部，使手册对 
用户的简洁实用友好程度迅速提高。 

• 增设用户特殊要求的维修服务部，以便从工作 
中吸收新的设计思路、树立特别信誉高大形像。 

• 增设艺术、文明、高实用性培训部，使企业中有 
一大批善于同用户友好交往，从而迅速扩大用户市场。 

• 增设企业各级干部自身管理水平的强化培训 
部，并从中不断增补公司各级领导骨干。 

• 增设市场决策分析指挥部，专门为企业提供各 
种战略规划决策咨询意见。 

五、合理调整企业产业布局结构 
在中华学习机统一基本开发规定基础上，应把现 
有企业产品针对同其他行业工程配套性质不同，区别 
出各有特点的生产企业，把全国生产厂的市场开拓视 
野展宽，以状大现有产业规模。 

例如 • 学令前儿童教育微机 
• 中、小学教育微机 
•科学博览教育微机 
• 在职成年教育微机 
• 各业专职人员教育微机 
• 教师辅助教学工具用教育微机 
• 智能排版终端用教育微机 


• 商用智能终端用教育微机 
• 饲料配方开发用教育微机 

六、集中精力，制定好中华学习机三年产业发展战 

略。 

这个战略应包括以下 内容： 

• 对中华学习机产业的现状估计。 

• 三年发展总目标、总的指导思想、采取的主要措 
施、产品系列品种、三年计划生产数量、国内市场、国际 
市场、市场整顿、产业发展的有关配套政策。 

七、结束语 

机电部张学东副部长代表部领导多次重申 ：微机 
先行、科技先行、出口导向、以用立业的指导产业发展 
方针。我们应当遵照执行。把各项工作落到实处，有条 
理地把中华学习机产业建设工作推升到一个新的发展 
阶段。 

市场机遇总是存在，并不断涌现。但是能抓住这种 
机遇的人，是那些在市场发生大幅度变化的困难时期， 
能不怕困难，明查秋毫，有市场前景预见性的决策者。 

我希望我们的企业家都能做时代的先驱，做中华 
学习机产业建设的先驱，为后人开拓光明大道。让我们 
万众一心，脚踏实地，踏踏实实做贡献。那么中华学习 
机产业的兴旺发达就一定会呈现在我们面前。 
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程序二 

$ 300— 存频率码 F 
$301 存音长码 T 


$ 302— 

AD 

30 

CO 

LDA 

$ C 030 

$ 305 - 

88 



DEY 


$ 306 

D 0 

05 


BNE 

$30 D 

$ 308— 

CE 

01 

03 

DEC 

$ 0301 

$ 30 B - 

F 0 

09 


BEQ 

$0316 

$ 30 D - 

CA 



DEX 


$30 E — 

DO 

F 5 


BNE 

$ 0305 

$310— 

AE 

00 

03 

LDX 

$ 0300 

$313— 

4 C 

02 

03 

JMP 

$ 0302 

$316 ― 

60 



RTS 



在单元时间内喇叭振动的次数与频率码 F 的值成 
反比 u 初始值越大，则喇叭两次振动之间的间歇越长， 
那么笮元时间内喇叭振动的次数便会减少，声音的音 
调变低。 

出现此现象的原因是上述两汇编程序的结构略有 
差异。程序一的非芩跳转使喇叭又振动一次，而程序二 
的非岑跳转却使喇叭两次振动之间的间歇延长，所以 
频率码 F 的值与单元时间内喇叭振动的次数成反比。 

有的用户以往在运用 apple n 机的机器语言 
发声子程序时，不知道有两种方案，则出现用某 一资料 
上的频率码 F 序列，却配用另一资料 h 的另一方案的 
机器语言发声子程序，结果演奏出来的乐曲便面目全 
非了。 

第二种方案的最大变化，是将第一种方案的音长 
码 T 的单元时间值，与频率码 F 的联系被切断了， Y 变 
址寄存器的值，是与频率码 F 的值无关的。 

但从总体上来讲，由于 APPLE — II 及其兼容机的 
硬件限制，机内无实时时钟，也只能比第一种方案略有 
改进而已。 

CEC - I 机采用第二方案，并将其固化 S $ D 0 F 9 
〜$ D 10 B 的空间。摘录 如下： 

程序三 


$ DOEC — 

20 

F 8 

E 6 

JSR 

$ E 6 F 8 

$ D 0 EF — 

86 

EC 


STX 

$EC 

$ D 0 F 1 — 

20 

BE 

DE 

JSR 

$DEBE 

$ D 0 F 4 — 

20 

F 8 

E 6 

JSR 

$ E 6 F 8 

$ D 0 F 7 — 

86 

ED 


STX 

$ED 

$ D 0 F 9 — 

AD 

30 

CO 

LDA 

$ C 030 

$ D 0 FC — 

88 



DEY 


$ D 0 FD - 

DO 

04 


BNE 

$ D 103 

$ DOFF — 

C 6 

ED 


DEC 

$ED 

$ D 101— 

F 0 

08 


BEQ 

$ D 10 B 

$ D 103— 

CA 



DEX 


$ D 104— 

DO 

F 6 


BNE 

$ D 0 FC 

$ D 106— 

A 6 

EC 


LDX 

$EC 

$ D 108 — 

4 C 

F 9 

DO 

JMP 

$ D 0 F 9 

$ D 10 B — 

60 



RTS 



稍加观察便可了解程序二的第3至12行与程序 


三的第6至15行完全一致。程序三中的前五行解决 
BASIC 源程序中 MUSIC 代码后的字符读取问题，并将 
频率码 F 的值存入 $ EC 单元，音长码 T 的值存入 
$ ED 单元。而恰好$ EC '、 $ ED 两单元在 APPLE - II 
机中没有被使用，不会影响其软件的兼容性。 

CEC 1机增设这一功能，为广大青少年学生初 
学 BASIC 语言#，提供了不少方便和乐趣，因为他们 
一般还不了解汇编语言，无法借助机器语言发声子程 
序的任一方案，自己编制音乐程序。这样做是非常合适 
的。 

我们知道， basic 中每一次功能扩充，都是以增加 
硬件资源的开销换取来的 ， CFr - I 机的 MUSIC 语句 
也不例外。用 MUSIC 语句命令让机器发一个音，需要 
十个字节的内存开销。相反如果使用机器码，除了发声 
子程序占用二十个字节外，每发一个音只要两字节内 
存，一个存放频率码 F ， 一个用于存放音长码 T 。 由此 
可见，用 BASIC 的 MUSIC ： 语句的内存开销是用机器语 
言发声 f •程序的内存开销的五倍。当然作为中小学生 
的学习机，学生编制的程序不会太长，内存开销紧张的 
矛盾不会突出，所以用不着去考虑。 

fi 作为教育工作齐编制 CA 1 软件，或有关音乐教 
学的软件，再使用 BASIC 的 MUSIC 语句命令，不仅大 
规模的输入、修改不便，且内存汗销过大的矛盾也将逐 
渐上升为主要矛盾。在这种情形下，建(义仍使用机器语 
言发声子程序较好。 

笔行曾利用 C：EC I 和 ROM 中$ D0F9 $ D10B 
的机器语言发声子 程序运 行机器码数据 （ F 、 T) 序列， 
相当好用。唯一发现的不足是音调变高、节拍时间缩短 
了一些，为此在程序二的第 H 行 X . 变址寄存器的减 
量指令之前增加一条空操作指令，做到与使用 MUSIC 
语句发声的音调基本一致、， 

其次是 CEC — 1机中固化的机器语言发声子程序 
还有一点 限制： 乐曲中不得有休止符，即频率码 F 的初 
始值不得为零。为芩时，实际是等于256,机器将发出 
-个比频率 F 等于 255 的值还低的声音，这是原汇编 
程序的结构决定了的。 

这对于 CAI 软件是一个遗憾。这时唯一的出路只 
能是使用机器语言 发声丫 •程序，并做少贵的修改。在程 
序三的第13行之后，堉加一行条件转移指令，即当 
$ EC 单元值为岑时，跳转到第7行，从而喇叭不发声， 
实现有休止符的乐曲演奏。笔者以第二方案为基础，编 
制了一个可运行机器码数据 （ F 、 T ) 序列，且可允许乐 
曲中有休止符的程序 如下： 

程序四 


$ 6000- 

A 9 

60 

LDA 

# $60 

$ 6002 — 

85 

07 

STA 

$07 

$ 6004— 

A 9 

3 B 

LDA 

# $3 B 

$ 6006— 

85 

06 

STA 

$06 

$6008 

EG 

06 

INC 

$06 

$ 600 A 

F 0 

2 A 

BEQ 

$6036 

$ 600 C — 

A 2 

00 

LDX 

# $00 


14 



$ 600 E — 

A 1 

06 

LDA 

($06， X ) 

$6010— 

85 

EC 

STA 

$EC 

$6012— 

E 6 

06 

INC 

$06 

$6014— 

A 1 

06 

LDA 

($06， X ) 

$6016— 

85 

ED 

STA 

$ED 

$6018- 

85 

08 

STA 

$08 

$601 A — 

A 5 

EC 

LDA 

$EC 

$ 601 C — 

65 

08 

ADC 

$08 

$601 E — 

F 0 

1 A 

BEQ 

$603 A 

$ 6020— 

AD 

30 CO 

LDA 

$ C 030 

$ 6023— 

88 


DEY 


$ 6024— 

DO 

04 

BNE 

$ 602 A 

$ 6026— 

C 6 

ED 

DEC 

$ED 

$ 6028— 

F 0 

DE 

BEQ 

$6008 

$ 602 A — 

EA 


NOP 


$ 602 B — 

CA 


DEX 


$ 602 C — 

DO 

F 5 

BNE 

$6023 

$ 602 E — 

A 6 

EC 

LDX 

$EC 

$ 6030— 

F 0 

FI 

BEQ 

$6023 

$ 6032— 

A 9 

00 

LDA 

# $00 

$ 6034— 

F 0 

EA 

BEQ 

$ 6020 

$ 6036— 

E 6 

07 

INC 

$07 

$ 6038— 

DO 

D 2 

BNE 

$600 C 

$ 603 A — 

60 


RTS 


$ 603 B — 

00 


BRK 



有关说明 如下： 

程序中没有绝对寻址，这样可在内存中作到全浮 


动，便于不同情形的 使用。 

第1至4行为设置频率码 F 、 音长码 T 的数据区 
的起始地址。 

第6行为低位地址进行翻页而设置的跳转指令。 
为此在设置乐曲数据 ( F 、 T ) 区的起始地址时,低位应 
从奇数位（1、3、5…）算起，然后经过第5行的增量指 
令，则变为偶数位(…人/^、。），否则会在音长码 T 的 
存放字节处产生翻页动作，导致乐曲数据的混乱。 

第13至16行为乐曲结束判跳指令行，当频率码 
F 与音长码 T 都为零时表示乐曲全部结束，所以每一 
首乐曲的数据区应添加两字节置零作为结束标志。 

第26行为演奏休止符而设。 

为了便于读者验证这个程序的功能，文后附上一 
段数据，为 《春节 序曲》中的若干小节，有兴趣的同志不 
妨试一试。 


$ 6038 —DO 

D 2 

60 

00 

4 B 

46 

4 B 

IE 

$ 6040—54 

IE 

5 F 

46 

5 F 

IE 

72 

IE 

$ 6048—80 

46 

80 

IE 

72 

IE 

5 F 

46 

$ 6050—5 F 

IE 

54 

IE 

4 B 

46 

4 B 

IE 

$ 6058—54 

IE 

5 F 

46 

00 

46 

5 F 

46 

$ 6060—00 

46 

98 

6 E 

5 F 

5 A 

72 

IE 

$ 6068—5 F 

46 

72 

46 

80 

46 

5 F 

46 

$ 6070—72 

46 

80 

46 

98 

46 

80 

46 

$ 6078—98 

46 

AB 

46 

80 

46 

72 

46 

$ 6080—98 

46 

98 

IE 

AB 

IE 

CO 

46 

$ 6088—00 

46 

4 B 

46 

4 B 

IE 

54 

IE 

$ 6090—5 F 

FF 

00 

00 

00 

00 

00 

00 


中华机打印图形经验点滴 


四川宜宾教学仪器站 李志刚 


中华机的 BASIC 语言髙分辨率作图或 LOGO 语 
言作图，不但色彩丰富，而且图形也很漂亮。如何打印 
绘制的图形，随机配的使用手册没有作介绍。笔者参考 
苹果机的有关内容，给出中华机的高分辨率状态和 
LOGO 语言的图形打印方法，现介绍如下。 

一、 BASIC 语言作图的打印 

1、 图形绘制完后，用 CTRL-RESET 跳出高分辨率 
状态。 

2、 用 PRS 1 接通打印机。 

3、 用 POKE 1913, N 选择高分辩率图形页 ( N=l 
打印第1 页 ; N = 2 第 二页 ; N = 3 第1页和第2页）。 

4、 按 CTRL - Q (或 PRINT CHR $ ( I 7 )) 打印图形。 

二、 LOGO 语言图形打印 

1、将主机和打印机接通 :OUTDEV 1 


2、打印 图形 : CHAR 17 

为了使打印的图形好看，中华机还设置了两种打 
印功 能:反 相打印和放大打印。可用参数来控制。 

打印程序 

TO LD : X 
OUTDEV 1 
DEPOSIT 1913 ：X 
PR CHAR 17 
OUTDEV 0 
END 

其中， 参数: X 控制打印的类型。 

: X =1 正常打印 ： X =33 反相打印 

: X =65 放大 打印: X =97 反相放大打印。 
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谈谈计算机病毒 


石家庄铁道学院崔来堂 

C 提要〕本文通俗地阐明了计算机病毒的概念和 危害; 详细分析了园球病毒的侵害机理和消毒免疫 方法； 
综述了判断和予防病毒的事项。试图给予广大微机工作者关于计算机病毒较为系统的知识，并介绍几种 
解决问题的实用方法。 


—、计算机病毒及其危害 

目前，常听人们说，你的磁盘上的信息破坏了，我 
的计算机运行乱了套，不几日，整个机房的计算机几乎 
都失常了。人们不明白，这到底出了什么大问题？因而 
慌张失措，忙乱不堪。 

这就是计算机病毒在作怪。 

计算机病毒 （Computer Viruses ) ，说来也是一类程 
序，是由极少数人故意精心编制的一些特殊程序段，通 
常并没有文件名，不能象正常程序那样以文件形式驻 
存在盘上。它们寄生在盘文件的模块中，专门起扰乱或 
破坏计算机系统正常工作的作用。它们的另一个特点 
则可以迅速地繁殖和传播，造成对大批计算机系统的 
危害，耗费大量的计算机资源和资金人力。这很象危害 
人体健康和生命的微生物病毒，因此被形象地称为“计 
兑机 病毒' 最初,病毒的设计者可能只是对非法拷贝 
软件进行阻挠和报复，后来竞造成极严重的恶果。 

1983年11月，美国提出首例计算机病毒，至今才 
六年多时间，世界许多国家和地区都发现了计算机病 
毒的侵害，特别是近一、二年来，病毒的种类迅速增加， 
篷延速度越来越快，已成为一个棘手的技术问题和不 
容忽视的社会问题。有资料统计，仅1988年11月一个 
月，计算机病毒的感染给美国造成的经济报失就达一 
亿美元以上，由此足见问题的严重性。 

我国 L 989 年3月在重庆西南铝加工厂计算中心 
发现计算机病毒，成为我国计算机界1989年的重大# 
件。至今不到一年,其蔓延速度之快，令人震惊。目前几 
乎每个单位都有机子已染上了病毒，有的已经发现，有 
的只是还没有发现而已，因此不可掉以轻心。 

计算机病毒的种类很多。从潜伏时间来看，有的使 
机子发病很快，一旦侵入，马上使系统 失常； 另一些则 
具有较长潜伏期，只当机子内部的计时器计到某一特 
定日期和时间，或以某种特定参数执行某个程序，或某 
种运行执行到特定遍数，或按下某种特定键的组合时， 
才会发病，这就使得病毒的潜伏期有时可长达数月甚 


至数年。在这段潜伏期内，因人们没有察觉,会造成更 
多机子被感染，一旦发现，为时已晚，从而造成难以估 
计的更大的损失。从破坏程度来看，有的只是导致系统 
运行效率明显下降，并使系统产生表面上的 混乱; 有的 
则破坏甚至删除文件，使系统瘫痪;有的表面上似¥看 
不出什么,很隐蔽，但它们会在数据文件中将小数点向 
左或向右移一移，增加或抹掉一两个“0”,使结果产生 
错误，却又不易发现，后果更不堪设想。 

只是使计算机系统造成非实质性混乱，软件运行 
效率下降，而不造成内在破坏的病毒，称良性 病毒； 使 
系统产生破坏（比如破坏或删除文件，对硬盘强行格式 
化等），无法运行，甚至导致系统崩溃的病毒，称为恶性 
病毒。 

. 由于病毒对计算机系统造成的迅速而致命的危 
害，已引起有关各国的高度重视美国和 日本均 已组成 
专家班子，研究对计算机病毒的防范。我国也已提到日 
程，着手进行研究，已有消毒和免疫程序陆续推出。 

二、对园球病毒侵害机理的分析 

据报道，目前计算机病毒已有30多种，还有的资 
料介绍，从更广义角度统计，为150多种。这些病毒对 
计算机侵害的机理和导致的后果各不相同，因篇幅所 
限，下面仅以常见的 ••园 球”病毒为例，进行概要分析。 

园球病毒 （Bouncing Ball Virus ) 是一种良性病毒， 
它侵害的对象是 IBM - PC 系列微机及其兼容机。被侵 
害的微机的症 状是: 运行过程中，先在屏幕的一角出现 
一个亮点，继而上下移动，有如弹跳着的乒乓球，其轨 
迹近似正弦曲线，使屏幕显示受到干扰，程'序运行速度 
显著减慢。若是 CC — DOS 11 行显示，则屏幕还向上滚 
动，更加混乱。这些现象越来越严重，最终导致死机，重 
新启动后，过一会儿又可能发病。 

园球病毒程序共长 1024 字节，占两个扇区，这两 
个扇区并不连在一起，因此病毒程序实际上分成两个 
模块，设为 BV , 是病毒的传染模块,它负责 
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感染 其它盘，使病毒蔓延，它侵占软盘的0面0道1扇 
区(即0号扇区），该区原为正常的启动引导程序 BOOT 
区; bv 2 是病毒的触发显示模块，它使机子发病，它侵 
占盘上某一空簇（由工作过程具体确定）的第-扇区， 
第二扇区装入原启动引导程序副本，在文件分配表 
fat 中把该族标为“坏簇”这样就不会再被其它程序复 
盖，保证病毒自身的可靠存在。 

园球病毒是在系统启动引导过程中由盘侵入内存 
的。侵入后，机子就可能发病，并成为一个传染源。为了 
说明这种传染和发病过程，让我们先概要地看…下正 
常 PC DOS 的引导步骤， 

PC DOS 操作系统由下列四个部分 组成： 

① HOOT 自举引导程序，它主要负责在启动过 
程中把其余三个系统程序装入内存》 

© IBMBI.COM -基本输入输出管理程序，主要 

负责操作系统与外设之间的联系； 

③ 1 BMDOS • COM - --磁盘操作系统本身，是 PC 
DOS 的核心，主要负责文件管理.盘块管理，以及用户 
可直接使用的各种系统调用等； 

④ COMMAND . COM 命令解释和命令处理程序， 
主要负责接收、识别和执行用户通过终端打入的命令。 

其中, BOOT 程序在 FORMAT 命令对盘格式化时， 
.就被放入软盘的0面0道 I 扇区（或硬盘的1柱面1 
扇区），系统启动时,先把它装入内存，再由它装入其它 
三部分。具体过程如 T : 

① 系统冷启动或热启动, CPU 对各寄存器初 始化； 

② 从 FFFF ： OH 地址开始执行指令，进入 ROM 
BIOS ，进行加电测试，然后执行 BOOT — STRAP (1 NT 
19 H ) 程序段，检査驱动嚣 A 中有无软盘,若没有，再检 
査有无硬盘 

③ 设驱动器 A 中插有操作系统盘，则将 BOOT 程 
序由盘装入内存 0:7 C 00 H 地址，并将控制权交 给它； 

④ BOOT 再将上述其它三个文件依次装入内存； 

⑤ 检査是否有系统配置文件 CONFIG ’ SYS ? 如 
有,按它指定的内容安排系统； 

⑥ 检査是否有自动批文件 AUTOEXEC • BAT ? 若 
有，逐条执行它的各项内容；没有，则要求输入日期、时 
间、最后给出系统提示符.表示启动引导成功，可以输 
入和执行命令了。 

T 面再罾病毒情况。 

如果盘已被感染， fc 述第③步装入内存 0 : 7 COOH 
处的不再是 BOOT 程序，而是病毒模块 BV ,。 BVi 得到 
控制权后，就进行下面几项 操作： 

①把本身再拷贝到内存最高端，并转到最高端这 


里继续执行； 

② 把盘上的病毒模块 BV : 读入内存，紧接在最高 
端的 BV , 模块之后，形成完整的病毒程序； 

③ 把盘上紧接 BV 2 之后一个扇区的正常引导程序 
BOOT 的副本读到内存0: 7 COOH 处，复盖掉 BV ,; 

④ 修改 BOOT 程序的 1 NT 13 H 软盘读写中断向 
量，使它指向内存最高端的 ； 

⑤ 交出控制权，转到 0:7 COOH 开始正常引导过 
程。 

这样，病毒程序就完整地安装在内存最高端，常 
驻,不被复盖。可见,在完成正常的系统引导之前，病毒 
就已侵入内存深处，并安装完毕,做好了传染和发病的 
准备。 

那么，园球病毒到底是怎样进行传染和使计算机 
发病的呢> 

由于病毒已修改了 INT 13 H 中断向 M . 把完整的 
病毒程序嵌入到正常的 1 NT 13 H 中断处理程序之前， 
因此，每次访问软盘时，必须先执行病毒程序 BV 』 和 
BV 2o BV , 就把自身写到软盘原 BOOT 区，把 BV ? 写到 
某一空白扇区，原 BOOT 程序则被拷入紧挨 13 V :> 的下 
一空白扇区。如果此时驱动器中插的是健康盘，该盘即 
被 传染； 如果插的是已带病毒的盘，则读或写一次，就 
再传染一次,增加一个坏簇，减少 iK 容摄％可见，用带 
病毒的系统盘启动机子，机子就形成了传染源，软盘在 
这种机子上一做读写操作，就被传染= 

bv 2 的作用是干扰屏幕显示和降低程序执行速 
度。它用中断 INT 1 AH 读取机器时钟，如果在整点或 '卜 
点钟（如10:00或]0: 3 0等）恰好访问软盘，使用 INT 
13 H , 则要对 INT 08 H 中断向量进行修改。正常的 1 NT 
08 H 产生 18. 2次/秒的计时脉冲，用来计算一天的时 
间。病毒在它的正常中断处理程序之前嵌入-段屏幕 
显示程序，调用 INT 10 H 中断，在屏幕上显示一个亮 
点，又由于每秒中断〗 8. 2次，因此看到的是一个连续 
移动的园点。这部分显示程序原是针对 25' 行的 PC 
DOS 编写的.在 1 1行的 CC - DOS 环境中不能同步，使 
屏幕不断滚动，更加混乱。另一方面 ， INT 08 H 中断处 
理程序前增添了显示程序.中断处理时间加长了，因此 
程序执行速度显著降低。再者.病毒安装在内存高端， 
占据 2 K 空间,使其后安装的 COMMAND • COM 下移 
而检查内存时（比如用 CHKDSK 命令），仍认为 COM ¬ 
MAND 占着内存高端，因此测试出来的内存容量就减 
少 2 K 。 （未完待续） 
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也谈 STC 格式盘作标记 


宜昌一中 

《苹果园》1989年第五期上所刊《在 STC 2. 0格 
式化的软盘 片上作 标记》一文，利用磁道/扇区编辑。 
对扇区进行修改来达到作标记的目的。使用繁琐，还 
需专门软件。本文介绍另外一种作标记的方法。 

在引导 STCDOS 后，先显示出有关 STC 系统的 
字样。这样是利用 S TO C 系统文件 INIT 格式化时 
存盘上的。我们只需对 INIT 文件作些修改，就可以 
格式盘上作标记了。 

通过对 INIT 文件的研究,开机显示的屏幕内容 
在 INIT 文件中的$ 3 B 00- $ 3 EFF 处,它与屏幕缓冲 
区地址 $400-$ 7 FF 不是一一对应的关系。而是 
$ 3 B 00- $ 3 BFF 对应 $ 700- $ 7 FF , $ 3 C 00-'$ 3 CFF 
对应 $ 600- $ 6 FF , $ 3 D 00- $ 3 DFF 对应 $ 500- 
$ 5 FF , $ 3 E 00- $ 3 EFF 对应 $ 400-$ 4 FF 。 知道这样 


韩锼 

的对应关系，就可以作标记了。下面举例说明。 

把开机启动后要显示的内容（即标记），先使其 
显示在屏幕上，并存盘。如文件名是 ABC , 则键入 
BSAVE ABC ， A $ 400， L $ 3 FF 。 

在 DOS 3. 3下将 STC 格式化文件 INIT 调入内 
存: BLOADINIT 。 再将文件 ABC ； 调入内存,不要调 
入文本显示区，而不应破坏 INIT 文件 ： BLOAD 
ABC , A $ 800。进入监控。 CALL - 151。按照对应关系， 
键入以下移动指令 ：3 E 00<800. 8 FFM \ ,3 DOO <900. 
9 FFM \ ,3 C 00< A 00. AFFM \ ,3 B 00( B 00. BFFM \ 
这样，作好标记的新的 INIT 文件就完成了。最 
后将新文件 存盘 : BSAVE INIT , A $ C 00, L $ 4400 o 
利用 INIT 文件可格式化许多盘，而每个盘上都带有 
这样标记。 


• 苹果 园地. 在 BASIC 中使用16进制数 

武汉华中师范大学 许勇 


―、引言 

在 BASIC 语言中，常用 CALL , POKE,PEEK i 吾 
句调用机器语言，访问内存、触发软开关。但这些命 
令后面的内存地址和数据必须用10进制数表示。那 
么，在 BASIC 中能直接使用16进制数吗？本文就是 
要回答这个问题。 

我们知道在 BASIC 状态由键盘向计算机输入 
源程序时，各程序行都是以字符形式逐一送到键盘 
缓冲区 （$20 O ~$2 FF ), 当打入回车键后，表明这 
一程序行输入完毕。计算机立即判断缓冲区的首字 
符是否为数字，若是，便看成为延缓执行方式，将缓 
冲区的信息经代码转换后送到内存中的 BASIC 源 
程序存贮区，而并没有由 BASIC 解释执行程序进行 
语法错误判断。故我们在编制和输送向计算机输送 
BASIC 源程序时，除行号外其它数据完全可以使用 
十六进制数。而在运行源程序时，只须选时源程序存 
贮区进行一次扫描，将十六进制数自动转换为十进 
制数，并用十进制数对应 ASCII 码来覆盖其十六进 
制数对应的 ASCII 码即可。 

二 、 BASIC 源程序存贮区简介 


Apple soft BASIC 源程序存贮区是以程序区首 
址指针（$67、 $68) 所指向的内存地址开始和以末 
址指针 （$ AF ,$ B 0) 所指向的内存地址为结尾的区 
域。在程序区中，各程序行按照行号的顺序从首址指 
针所指内存地址开始依次存放。其结构为一链式结 
构，一个程序行即为一个链。每个链开始两字节存 
放一个链指针是指明下一个链存放的起始地址，三、 
四两字节是为本程序行的行号，用16进制数表示。 
接下去是本程序行的内容，除保留字为内部代码外， 
其余均为各字符的 ASCII 码(高位为0)。各链之间 
用“00”作为程序行的分隔符。 

三、转换程序的设计 
转换程序的设计流程图如图一所示 
其设计原理如 下:从 softBASIC 源程序区首地 
址开始进行逐单元的扫描,将源程序区中 24( 十六 
进制“ $ ”的 ASCII 码)后接用 ASCII 表示的16进制 
数转换成用 ASCII 表示的十进制，并用后者去覆盖 
程序区中的前者。从而达到将 BASIC 源程序中16 
进制数自动转换成10进制数的目的。考虑到程序行 
中的链指针和行号有被当作16进制转换的可能，故 
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在扫描到这 4 个地址单元时自动蜣过。 



图1转换程序设 汁的 流程图 


四、源程序清单及应用举例 

本程序用6502汇编语言编写、在 APPLE 及其 
兼容机上通过，其源程序清单(机器码)如下。 


02 F 2- 

A 5 

67 

48 

A 5 

68 

48 



02 F 8- 

C 6 

67 

A 0 

00 

20 

23 

03 

20 

0300- 

23 

03 

20 

23 

03 

20 

23 

03 

0308- 

C 4 

AF 

DO 

0 D 

A 5 

68 

C 5 

B 0 

0310- 

D 0 

07 

68 

85 

68 

68 

85 

67 

0318- 

60 

20 

23 

03 

B 1 

67 

DO 

09 

0320- 

4 C 

FC 

02 

C 8 

DO 

02 

E 6 

68 

0328- 

60 

C 9 

24 

DO 

EC 

98 

48 

A 5 

0330- 

68 

48 

A 2 

00 

86 

06 

86 

07 

0338- 

86 

08 

20 

23 

03 

B 1 

67 

E 6 

0340- 

08 

09 

80 

49 

B 0 

C 9 

0 A 

90 

0348- 

14 

69 

88 

C 9 

FA 

B 0 

0 E 

A 5 

0350- 

08 

C 9 

01 

DO 

19 

68 

85 

68 

0358- 

68 

A 8 

4 C 

19 

03 

A 2 

03 

0 A 

0360- 

0 A 

0 A 

0 A 

0 A 

26 

06 

26 

07 

0368- 

CA 

10 

F 8 

4 C 

3 A 

03 

84 

08 

0370- 

A 4 

06 

A 5 

07 

20 

F 2 

E 2 

20 


0378- 

34 

ED 

AD 

00 

01 

C 9 

2 D 

DO 

0380- 

22 

A 9 

93 

85 

A 5 

A 9 

20 

85 

0388- 

A 6 

A 9 

00 

85 

A 7 

85 

A 8 

85 

0390- 

A 9 

85 

AA 

A 4 

06 

A 5 

07 

20 

0398- 

F 2 

E 2 

20 

DO 

EE 

20 

AA 

E 7 

03 A 0- 

20 

34 

ED 

68 

85 

68 

68 

A 8 

03 A 8- 

A 2 

00 

BD 

00 

01 

F 0 

09 

91 

03 B 0- 

67 

EB 

20 

23 

03 

4 C 

AA 

03 

03 B 8- 

C 4 

08 

F 0 

07 

A 9 

20 

91 

67 

03 CO - 

20 

23 

03 

4 C 

1 C 

03 




将程序送到 $2 F 2 〜 $3 C 5 后，即可存盘以备 
用，当需要对用16进制数编写的 BASIC 源程序运 
行时，先调岀本转换程序，然后键入 CALL 7 54 \，就 
能运行用 16 进制数编写的 BASIC 程序。举例 如下： 
10 POKE $ 3 F 5, $ 4 C 
20 POKE $3 F 6, $ F 2 
30 POKE $3 F 7, $3 
40 A $ = " QWERTYUIOASSDDF ^ 

50 B $ = MID $ ( A $ , $ A ， l ) 

60 PRINT B $ 

70 PRINT $FFFF 
]CALL 754 
]LIST 

10 POKE 1013,76 

20 POKE 1014,242 

30 POKE 1015,3 

40 A $ = ,f QWERTYUIOASSDDF " 

50 B $ = MID $ ( A $ ,10,1) 

60 PRINT B $ 

70 PRINT 65535 
]RUN 
A 

65535 

五、几点说明 

1 、 本程序可转换$ 0〜$ SFFFF 除$ DEF 外任 
何16进制整数。当超过四位数时，只取后四位。 

2、 本程序设计的意义远非如此。利用本程序的 
设计思想，只须改变图中虚线框内的内容，可直接对 
BASIC 源文件进行自动编辑，如替换、删除字符等。 
另外，它也可将 BASIC 源文件中的某些关键字，某 
些重要的变量、常量转换成不可识别的密码，即使能 
列出其 BASIC 源程序清单，别人也很难读懂，更无 
法运行。要想运行只有通过转换程序将密码变为正 
常码。实践表明，这种开放性加密的效果较好。 
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• 苹果园 地 • 


apple edit 文本编辑程序 


哈尔滨科技大学傅增明 


文本编辑程序用于输入文本，修改订正，打印输出 
和把文本存入文件中，是字处理系统的重要组成部分。 
作者用 basic 语言编写了一个文本行编辑程序 ap ¬ 
ple EDIT ， 并应用于苹果机 MCS — 51单片机交叉汇编 
软件 “ SUPF ： R /805] ”中。 “ SUPER /8051 ”是目前苹果机 
上速度最快、功能最强、容童最大并可与许多常用单片 
开发机(仿真器）通讯的交叉汇编，采用 APPLE EDIT 
文本编辑程序和一个条件汇编程序相互结合作为交叉 
汇编的编辑程序，使汇编速度超过 IBM - — PC 机上常用 
的51单片机交叉汇编。 

一、 APPLE EDIT 的操作命令 

I 〔 CR 〕 文本输入命令。键入该命令后，自动显示行 
号。如果键入 1〔 CR 〕 前，苹果机内没有文本行，则行号 
从 1 开始。如果机内已有文本行，则 I 〔 CR 〕 命令不损坏 
原有文本，行号从原有文本的行数加一开始 。 apple 
edit 的每一个文本行可输入255个字符。 I 〔 CR :! 命令 
由 CTRL -- Z 返回。 

nI 〔 CR 〕 插入命令。在第 n — 1行和 n 行之间插入一 
行，插入'行的行号为 n 。 第 n 行以后的行号全部加1。插 
入 - •行后，自动返回。如果奄未输入回车符前，键入 
CTRL Z ， 则刚输入的行作废，并把原来的第 n 行复制 

一行。 

L 〔 CR 〕 屏幕列表显示命令。从第一行开始列表•列 
表过程中可由 CTRL S 暂停， CTRL - Z 中断返回。为 
了能够 显示完整的行，列表过程中在显示完整的一行 
后，小采样 CTRL - Z 信号。 

nLCCR 〕 显示第 n 行，自动返回等待状态。 

nL,- 〔 CR 〕 从第 n 行开始列表。可由 CTRL-S 暂停， 
CTRL-Z 中断返回。 

nE 〔 CR 〕 修改命令。当需要修改第 n 行时键入该命 
令 ， APPLE EDIT 显示该行原来的内容，并请求输入新 
的一行内容，回车后自动返回等待状态。如果在回车前 
键入 CTRL - Z ， 则新输入的行作废，修改前的行仍有 
效。 

nD 〔 CR 〕 删除第 n 行。 

nD -〔 CR 〕 删除第 n 行开始到最后一行之间的所有 
行。 

ni — n 2 D =〔 CR 〕 删除第⑴行到第 n 2 行之间（包括 
第^行和第 n 2 行)的所有文本行。 

P 〔 CR 〕 打印输出命令。在键入该命令前，打印机应 


准备就绪。打印前可选择是否打印行号。 

S 〔 CR 〕 文本存入软盘文件命令。键入该命令后需 
输入文件名。可用 〔， Dn 〕 指明驱动器号。 

R 〔 CR 〕 软盘文件读入内存。当一个文件读入内存 
后，机内原有文本即丢失。 

C 〔 CR 〕显示软盘文件录。 

Q 〔 CR 〕 退出文本编辑程序。 

〔 CR 〕 显示操作命令简介。 

二 、 APPLE EDIT 程序 

10 DIM A$ (999) 

15 ON ERR GOTO 30 

20 Zl = l ： Z6 —0：GOSUB 7000 

30 PRINT：CALL -868 : 1NPUT“C()_AND ，， ; L$ 

35 IF L $ =“I” THEN G(XSUB 90 

40 IF RIGHTS (L$ .1) : “L”（)R RIGHT $ (L$ ， 2): 二 “L 」， 
THi-：N GOSUB _ 

45 IF L$ 二 “P” THEN GOSUB 700 
50 IF L$ =“S” THLN GOSUB 800 
55 IF RIGHT $ (L$ , I) -“ D” THEN GOSUB 900 
60 IF RIGHT $ ( L $ , 2 ) -- ** D THEN A $ ( 0 ) - STR 
$ (VAL (L$ )-l)：GOTO 30 
65 IF L$ =“R” THEN GOSUB 860 
70 IF L $ ■=“()” THEN END 

75 IF L $ = THEN GOSUB 7000 

76 IF RIGHT$ .(L $ ，: I ) 二 “E” THEN GOSUB 930 
78 IF L$ =“C” THEN .100 

80 IF RIGHT $ (L $ ， 1) - “I” THEN GOSU13 970 
83 IF RIGHTS (L$ ,2) “[)=，’ THEN 500 

85 GOTO 30 
90 VV-VAL (A$ (0)) 

100 W-W + Zl：GOSUB 105 ： A$ (0)- STR $ (w)：GOTO 
100 

105 PR1N1 W ，， ： ，， ;TAiH3) ; 

110 GET y\ $ ： IF A $ :CHR $ (13) OR A $ : :(、HR $ (26) 
THEN 180 

120 IF A$<> CHR $ (8) THEN 132 
125 IF LEN (B $ ) :: 0 THEN 110 

130 IF LEN (B$ )=1 THEN B$ = ，，: PRINT A $ ; ，，”; A 

$ ； : GOTO 125 

131 B$ =LEFT$ (B$ ,LEN(B$ )-Zj)：PRINT A$ ；* 4 f, ； 
A$ ； : GOTO 110 

132 PRINT A $ ;: IF A $ = CMR $ (21) THEN 110 
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140 

IF A$ 

110 

= ‘‘，，， THEN B $ 

=B$ -fCHR ^ 

^ (159)：GOTO 

150 

IF A$ 

110 

=“ ： ，， THEN B $ 

=B$ +CHR ^ 

U (158 )： GOTO 


160 B$ =B$ +A$ : GOTO 110 

180 IF A$ =CHR$ (26) THEN POP：PRINT ^ " Z，，：GOTO 
30 

190 A$ (W)-B$ : B$ = “ ，，: PRINT : RETURN 
400 INPUT “..DRIVE.NO.. (1/2)” ； L:IF L>2 OR L<J 
THEN 30 

410 PRINT CHR $ ⑷ ；“CATALOG D”;L 
420 GOTO 30 

500 J= VAL (A$ (0)) ： K- VAL (L$ )：FOR I:2TO 4:IF 
M1D$ (L$ ， I ， 1) = “ — ，， THEN 520 
510 NEXT I：GOTO 30 

520 L$ - RIGHTS (L$ ， LEN(L$ )-I)：L = VAL (L$ )：IF 
K>L THEN 30 

530 IF K>=J OR L> = J THEN 30 

540 FOR I 二 L + Zi TO J：A $ (K-f I —L--Z1) = A $ (1 )： 
NEXT 1 

550 A$ (0)=STR$ (J-L+K-Zl)；GOTO 30 
600 IF L$ =“L” THEN R = l:GOTO 640 
610 R = VAL (L$ )：IF RIGHTS (L$，】）= “，• THEN 640 
620 IF R>VAL (A $ (0)) THEN RETURN 
630 W = R：GOSUB 670：RETURN 
6^10 IF R> VAL (A $ (0)) THEN RETURN 
650 FOR W = R TO VAL (A $ (0))：GOSUB 670 ： 1F PEEK 
(19152)=154 THEN POKE 49168,0：RETURN 
660 NEXT W: RETURN 
670 PRINT W, “ ：、 TAB (5 )； 

675 I 二 LEN (A$ (W))：IF 1 = 0 THEN PRINT ： RETURN 
677 FOR J 二 Zl TO I ： A$ —MID$ (A$ (W) ， J,Z1 ):1F ASC 
(A $ )=158 THEN PRINT “：”； 

680 IF ASC (A $ )-159 THEN PRINT 
6S0 PRINT A $ ； 

695 NEXT : PRINT：RETURN 
700 INPUT “TABLE(Y/N) ，，； L$ 

7H) PR# 1 : POKE 1657,40：PRINT 

720 IF L$ =“Y” THEN FOR W 二 Z1 TO VAL (A$ (Z6 >)： 
CrOSUB 670：NEXT W 

730 IF L$ =“N” THEN FOR W 二 Z1 TO VAL (A $ (Z6 ))： 


GOSUB 675 ： NEXT W 
740 PR# 0：RETURN 

800 PRINT “SAVE TO DISK”：INPUT “NAME :”； R $ : IF R 
$ =“ ” THEN 800 
805 D$ =CHR$ (4) 

810 PRINT D$ ;“OPEN ，， ;R$ 

815 PRINT D$ ;“WRITE’ ， ; R$ : PRINT A$ (0) 

820 FOR 1=1 TO VAL (A $ (0))-.PRINT A $ (I) ：NEXT 1 
830 PRINT D $ ; “CLOSE，，;R $ 

840 RETURN 

860 PRINT “READ FROM DISK ，，： INPUT “NAME : ，’； R $ : 

IF R$ = “，， THEN 860 
870 D$ =CHR$ (4) 

880 PRINT D$ ;“OPEN” ； R$ 

885 PRINT D$ ;“READ ， ’;R$ ：INPUT A$ (0) 

890 FOR 1=1 TO VAL (A$ (0 ))： INPUT A $ (1 )： NEXT I 
895 PRINT D $ ; “CLOSE” ； ”R $ : RETURN 
900 IF L$ =“D” THEN RETURN 

910 K = VAL(L$ ) ： J-VAL (A $ (0))：IF K>J THEN RE 
TURN 

920 FOR I = K TO J ： A$ (I) = A$ (1 + 】）：NEXT I ： A$ (0) 
—STR$ (J—1)：RETURN 
930 IF L$ =“E” THEN RETURN 

940 K0 = VAL(L$ )：J = VAL (A $ (0))：IF K0>J THEN 
RETURN 

950 IF K0 = 0 THEN RETURN 

960 W = K0：GOSUB B70：GOSUB 105：PRINT : RETURN 
970 K0 = VAL(L $ )： J-VAL(A $ (0))：IF K0>J THEN 
RETURN 

975 IF K0 = 0 THEN RETURN 

980 FOR I:J TO K0 STEP — 1 ： A $ (I + Zl ) 二 A $ (I): 
NEXT 1 ： A $ (0) =STR $ (J + Z1 )： W = K0 ： GOSUB 
105 ： PRINT ： RETURN 

7000 HOME : PRINT M TEXT EDITOR.FIJ ZF ： N« 

MING. . 1989. 9. 15. . TONGXUN 
： .HARBIN. KEJI. DAXUE. 105. XINXIa'N” 

7010 PRINT “I> INPUT ”： PRINT “ L > LIST ，，： PRINT “P 、 
PRINT ”： PR 1NT“C>CATALOG ”： PRINT “S>SAVE ”： 
PRINT ， ’ D> DEL ”： PRINT “R > READ ”： PRINT “E> 
REENTER”：PRINT “Q>QU1T RETURN 


关于在各省、市、自治区组建《中华学习机》杂志 
记者站的通告 

为了促进我国电脑普及教育事业和电脑产业的发展，让中华学习机系列进入学校，走向家庭.面向社会，面向 
生活，为子 孙造® ，中国中华学习机普及协会创办的《中华学习机》杂志，将于1990年1月创刊，为此《中华学习 
机》杂志社特决定在全国各省、市自治区及有关部门与单位，组建《中华学习_机》杂志记者 发疔站 .欲应聘通讯•记 
者，成立记者发行站的单位和个人，请来信联系。 
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摆线型装饰图案的交互设计 


昌濰农校郭刚 


摆线又称旋轮线，不仅在工程上有广泛的用途(如 
转子油泵、三角旋转活塞、摆线间歇机构等），而且也是 
一种艺术性很强的曲线。用它可以构成许许多多漂亮 
的花纹图案，用作地毯、台布、壁纸、器皿等商品的装饰 
和装潢，以美化人们的生活。 

摆线的传统作图方法大致有 两种: 一种是利用模 
似曲线形成过程用几何作图法画出 曲线; 另一种是根 
据曲线方程用求点描线法画出曲线。用这两种方法人 
工绘图设计图案时，是非常费时费力的，不便于作出众 
多方案进行比较，限制了摆线的应用。本文所给出的程 
序则是通过人一机对话键入参数和指令，利用计算机 
绘制曲线，对摆线型装饰图案进行交互设计，从而使设 
计人员从繁杂的绘图劳动中解脱出来。设计人员可根 
据需要，对计算机绘出的图案选择比较，决定取舍，提 
高了.设计效率。另外，运用这种交互设计方法，对改造 
传统工艺也具有重要意义。 

程序用 BASIC 语言编写，在 APPLE— B 机上调试 
通过。 

一、 程序设计原理 

由解析几何学知，当一个动圆沿着一定线(可以是 
直线或圆)作纯滚动时,动圆上(包括圆周上或圆周内、 
外)的点的运动轨迹称为摆线。摆线有平摆线、外摆线、 
内摆线三类，每类还可分为普通摆线、长幅摆线和短幅 
摆线三种。下面是本程序所依据的内、外摆线的一般参 
数方程(参见图 1): 

卜 =(Ri+R 2 ) • COS0-L • R 2 • COS(l+ 告 )0 

7 =( 1 ^+ 只 2 ) • Sin0—L • R 2 • Sin(l+^-)0 

k R2 

式中： 

Ri ——定圆半径 

R 2 动圆半径 

L ——比例系数 

曲线形状由参数 K 、 R 2 、 L 确定。了解它们对线型 
的影响，对设计是很有帮助的。 

当 R ? >0 时，曲线为外摆线；当 R 2 <0 时，曲线为 
内 摆线; 当 R 2 ==0 时，曲线为圆。 

两圆半径之比在数值上等于两圆的周长之比。 
当比值等于1时，曲线是心 脏线； 当比值是整数时，曲 
线由有限条曲线分支组成，曲线首尾相接;当比值是分 


数(分子、分母互质)时，曲线由有限条交错的曲线分支 
组成，曲线首尾 相接; 当比值是无理数时，曲线的分支 
为无穷多，曲线首尾永不相接，此时应人为地限制绘图 
周期(本程序限在&内）。 

比例系数 L 是动点到动圆圆心0 2 的距离与动圆 
半径 R 2 之比。当 L =1 时，动点在动圆圆周上，曲线为 
普通摆线;当 L >1 时，动点在动圆圆周外，曲线为长幅 
摆线； 当 L <1 时，动点在动圆圆周内，曲线为短幅摆 
线。 L 必须>0。 

编程粗框图 如下： 
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为防止图形超出屏幕范围，应计算出曲线外接圆 
的半径 R M f 为绘图窗口。由图1可以看出，对于普通 
及长、短幅内、外摆线， RmzK + Rz + Ii ^ R 山对 于短 
幅外摆线， R M =Ri + 2 * R 2 ; 对于短幅内摆线， R M = R Ja 
二、程序使用说明 
运行程序 

1、 显示出： 

R 1= = FIXED CIRCLE 

r 2 = MOVING CIRCLE ( R 2 >0 —— EXT . CIRCLE ) 
( R 2 <0 —— INT . CIRCLE ) 

L MUST >0 
Ri ， R 2， L = 

这时应键入定圆半径 R , 、动圆半径 R 2 、 比例系数 
L 

2、 若显示出： 

REINPUT R m R 2 
Ri ， R_2 ， L= 

说明参数值太大，图形超界。这时应重新键入 K 、 
R 2 和 L 值。 

3、 画出整个曲线，然后 显示： 

INPUT F= 1/2/3 - GO ON / CLEAN/END 

F = 



ai 4 我戌 


这时可根据设计需要，键入数字 1、2 或3,实现 
“添画图形”、“擦去该图”或“打印结束”。具体做 法是: 

1°. 当对绘出的图形感到满意，但需要在此基础 
上继续添画图形时，可键入数字“1”。这时计算机便打 
印出这个图形的参数，然后回到第一步； 

2°. 当对绘出的图形不满意时，可键入数字“2”。 
这时计算机便将该图形擦掉，然后回到第三步； 

3°. 当对整个图案感到满意，可键入数字“3”。这 
时计算机打印该图形，运行结束。 

附: 源程序和几个装饰图案实例 

10 REM EPICYCLOID AND HYPOCYCLOID 
20 DEF FN X(TH)=Z1 * COS(TH)-Z3* COS (Z2 * TH) 
30 DEF FN Y(TH)=Z1 * SIN(TH)—Z3 * SIN (Z2 * TH) 
40 HGR： HCOLOR = 3: XC= 140： YC=80 
50 PRINT “Rl = FIXED CIRCLE”： PRINT “R2 = MOVING 
CIRCLE(R2>0—EXT . CIRCLE) (R2<0 - -INT.CIRCL 
E)” • 

60 PRINT“L MUST>0” 

70 INPUT “R1,R2,L=”;R1，R2，L 

80 IF L> = 1 THEN M = Rj+R2 + ABS (L* R 2 )：GOTO 110 
90 IF R 2 >0 AND L<1 THEN M = R,+R 2 * 2：GOTO 110 
100 M = R1 

110 IF M>YC THEN PRINT “REINPUT Rl，R2”:GOTO 70 
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120 

Z1 = R1 + R2 ： Z3 = L* R2：IF R2 = 0 THEN Z2 = 0 ： GO¬ 

L 





TO 130 

320 PRINT CHR$ (4) ; “PR#0，， : HH = 0:RETUKN 

125 

Z2=(R1+R2)/R2 





130 

PI = 3. 1416 ： B=2*PI ： X0 = FNX(0) ： Y0= FN Y(0) 


Rl = 25 

Rl = 20 

R1-J5 

140 

X = FN X(B)：Y = FN Y(B) 


R2 = 2 

R2 = 2 

R2 二 3 

150 

IF ABS (X-X0X1E-4 AND ABS (Y-Y0X1E-4 


L=1 

L=6 

L=5 


THEN 170 


Rl = 21 

Rl=50 

Rl=30 

160 

B=B+2 * PI:IF B<3 * 2 * PI THEN 140 


R2 = 4 

R2 二 4 

R2=-l 

170 

FOR A = 0 TO B+0. 1 STEP 0. 1 


L=6 

L=1 

L=1 

180 

X = XC+FN X(A) ： Y=YC—FN Y(A) 


Rl = 60 

Rl-60 

R1 =60 

190 

IF A = 0 THEN HPLOT X，Y 


R2=-2 

R2 = 0 

R2 = 5 

200 

HPLOT TO X, Y: NEXT A 


L=3 

L = 2 

L=2 

210 

PRINT “INPUT F= 1/2/3—GO ON/CLEAN/END” 


R1 — 58 

R1 二 65 

Rl 二 54 

220 

INPUT “F = ， ’ ； F:ON F GOTO 230,240,250 


R2 = 0 

R2 = 0 

R2 = 0 

230 

GOSUB 300；HCOLOR = 3：GOTO 50 


L= 4 

L= 3 

L=2 

240 

HCOLOR = 0 ： HH = 1 ： GOTO 170 


Rl = 52 


R1 二 50 

250 

GOSUB 300 ： PRINT CHR $ ⑷； “PR # 1 ，，： POKE 1913 ， 


R2 —0 


R = 0 


1：PRINT CHR$ (17):END 


L =3 


L= 1 

300 

PRINT CHR $ ⑷ ；“PR # 1” 


(图略） 


(醜） 


305 IF HH=1 THEN 320 

310 PRINT “R1 = ”；R1:PRINT “R2= ”；R2:PRINT “L=”； 


• 实用程序 




中华学习机第十一行显字 

西安电子科技大学 张昌民 


中华学习机只能显示十行,第十一行供汉字输入 
用。 

笔者在分析驻机 ROM 程序的基础上，编了一段 
小程序，可以在输出口 $ 36, $ 37两单元截断后，在第 
十一行显示汉字。为了方便，由 BASIC 语言编程。其中 
前两个语句是建立一个输出截断程序，只占内存的29 
个单元。如果想把这小程序放在其它地址，只需更改后 
边的54,55两单元的值即可。 

程序运行后，在第十一行显示“中华学习机 
ZHONG HUA XUEXI J 1”， 在屏中央显示“您好”。只要 
不进入汉字输入方式，第十一行显示的字不会清掉。用 
户也可以用 HG 2 清十一行。 HOME 不会清除十一行的 
字。 


前两句建立的输出截断小程序地址在$ 3 00到 

$31C 。 

程序清单 

10*DATA 32,171 ， 195,201,127,240,16,72,173,203,3, 
201 • 2,104,9,128,176,5,41 ， 127,32,125,239,32,13,238, 
76,185,195 。 

20 FOR 1 = 0 TO 28： READ V: POKE 7fi8 + l ， V:NEXT 
30 A - PEEK (54 ) ： B - PEEK (55) ： POKE 54,0 ： POK- 
E55,3 

40 POKE 36, a ： POKE 37, 10: PRINT " 中华学习机 
ZHONG HUA XUE XI JI" 

50 POKE 54,A：POKE 55,B 

60 HOME : HTAB 1 6 ： VTAB1 ：PRINT " 您奸 " 
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• 苹果园 地 • 


汇编语言列印探讨 


苏州师•范专科学校赵根林 


APPLE 监控程序中的 L 命令能将机器语言进行 
反汇编，每输入一个 L 命令便在输岀设备上列出二十 
行的汇编程序。然而，当我们希望在打印机上得到一份 
很长的机器语言反汇编清单时，就不得不输入多个 L 
命令，而且每页纸只能印上一列汇编程序，很费打印 
纸。 

笔者在研究了监控列表命令后编制了多功能汇编 
语言列印工具。该工具程序由 BASIC 程序（程序 1) 和 
机器语言程序(程序 2) 组成。前者完成参数的设置及 
机器语言程序的调用，后者完成汇编语言的列印工作， 
提高了运行速度。 

本工具使用户能完全按自己的要求来列出机器语 
言的反汇编清单，包括指定每页列印几列、几行以及单 
面列印还是双面打印，这些格式指定后，只要输入首地 
址和末地址即可。在双而列印时，中途把打印纸翻过 
来。 

BASIC 程序以 SAVE ASMLST 命令存盘。机器语 
言程序以 BSAVE ASM. OBJ, A $ 2000, L $ 18C 命令存 
盘。 

程序1 

5 P$ = M 01 23456789ABCDFF M : SA = 8J 92 ： REM SA 

=$ 2000 

]0 IF PEEK (8192) < > 169 THEN PRINT CHR 
$ (4):“ BLOAD ASM. OB.T，A$2000” 

20 HOME : IF PEEK(49601 )>= 128 THEN PRINT 
“TURN ON YOUR PRINTER!” 

30 IF PEEK(49601) >=128 THEN 30 
40 INPUT “BEGINNING ADDRESS $ ” ；A $ 

50 C.OSUH 220：RA = S 
60 1NPIJT“CL()‘S1NG ADDRFSS $ ，， ; A $ 

70 GOSDB 220：EA--S 
80- BH = INTCBA /256) ：BL = BA-BH * 256 
90 EH = INT(FA/256) : EL=EA —EH * 256 
100 POKE 250,BL：POKE 251,BH：POKE 8, EL:POKE 
9, EH 

110 PRINT “HOW MANY COLUMN PERPAGE”； ； IN¬ 
VERSE： PRINT “DEF = 3”； ： NORMAL： INPUT 
CO$ : CO =VAL(CO$ )：IF CO =0 THEN CO= 
3 

120 PRINT “HOW MANY LINE PERPAGE M ； : IN¬ 


VERSE： PRINT <4 DEF = 60”； ： NORMAL： INPUT 
LI$ : LI = VAL(LI$ )：IF LI = 0 THEN LI = 60 
130 POKE SA + 240,2 * CO：POKE SA + 250,41 —18 
* (CO-2)：POKE 255,LI:POKE SA-f 82,63- 
LI 

140 INPUT “ONE SIDE OR TWO SIDE (l/2)? ,, ；OT 

150 IF OT <1 OR OT >2 THEN 140 

160 PR# 1 : PRINT CHR$ ( 】 5);CHR$ (27);“8” 

170 IF OT= J THEN POKE SA-f 153,234 ： POKE SA 
-}-154,234：CALL SA：PR# 0：END 
180 POKE SA+ 153, 176：POKE SA+154,215:CALL 
SA 

190 PR # 0： PRINT： PRINT： PRINT “TURN BACK 
YOUR PAPER_ ” 

200 PRINT “THEN PRESS ANY KEY TO CONT 
INUE W ：C.ET A$ : PR #1 

210 POKE SA+153,1 仏 CALL SA ： PR#0：END 
220 S-0 ： N-LEN (A$ )：FOP 1= 1 TO N 
230 B$ (A $ ， M)：FOR J = 0TO 15：IF B$ 

-=MTD$ (P$ ) TURN A = J:J=】6 

240 NEXT .1 

250 S = S+A* 】 6' (N — 1) : NEXT I : RETURN 

下面给出汇编语言程序(机器码)。 

程序 2 


2000- 

A9 

A0 

8D 

79 

06 

A9 

00 

85 

2008- 

FC 

A5 

FA 

85 

06 

A5 

FB 

85 

2010- 

07 

20 

72 

20 

A5 

FF 

85 

FE 

2018- 

A2 

00 

A5 

09 

D5 

0D 

F0 

04 

2020- 

90 

25 

B0 

06 

A5 

08 

D5 

0C 

2028- 

90 

1D 

B5 

0C 

85 

3A 

B5 

0D 

2030- 

85 

3B 

8A 

85 

0B 

20 

F2 

20 

2038- 

20 

53 

F9 

85 

0A 

A6 

FD 

20 

2040- 

4A 

F9 

20 

FA 

20 

90 

D3 

8A 

2048- 

F0 

12 

20 

8E 

FD 

C6 

FE 

D0 

2050 

C7 

A2 

03 

20 

8E 

FD 

CA 

10 

2058- 

FA 

4C 

] 1 

20 

60 

A6 

FF 

86 

2060- 

FE 

A2 

00 

20 

8C 

F8 

20 

53 

2068 

F9 

85 

3A 

84 

3B 

C6 

FE 

DO 

2070- 

F0 

60 

A5 

06 

85 

3A 

85 

OC 

2078- 

A5 

07 

85 

3B 

85 

0D 

A2 

02 

2080- 

8A 

85 

0B 

20 

5D 

20 

85 

0A 
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2088- 

20 

E4 

20 

90 

F3 

20 

5D 

20 

2090- 

85 

06 

84 

07 

A5 

FC 

E6 

FC 

2098- 

4A 

EA 

EA 

A5 

09 

C5 

0D 

F0 

20A0- 

04 

90 

40 

B0 

06 

A5 

08 

C5 

20A8- 

0C 

90 

38 

A6 

0C 

A4 

0D 

20 

20B0- 

40 

F9 

A9 

AD 

20 

ED 

FD 

20 

20B8- 

ED 

FD 

A9 

BE 

20 

ED 

FD 

A6 

20C0- 

08 

A4 

09 

C4 

07 

F0 

04 

90 

20C8- 

11 

B0 

06 

A5 

08 

C5 

06 

90 

20D0- 

09 

A4 

07 

88 

A6 

06 

F0 

01 

20D8- 

C8 

CA 

20 

40 

F9 

20 

8E 

FD 

20E0- 

20 

8E 

FD 

60 

A5 

0B 

AA 

A5 

20E8- 

0A 

95 

0C 

94 

0D 

E8 

E8 

E0 

20F0- 

06 

60 

A6 

3A 

A4 

3B 

20 

40 

20F8- 

F9 

A2 

17 

86 

FD 

A9 

AD 

20 

2100- 

ED 

FD 

A2 

01 

20 

4A 

F9 

A2 

2108- 

00 

20 

8C 

F8 

48 

B1 

3A 

20 


2110- 

DA 

FD 

A2 

01 

20 

4A 

F9 

C4 

2118- 

2F 

C8 

90 

FI 

A2 

03 

CO 

04 

2120- 

90 

F2 

68 

A8 

B9 

CO 

F9 

85 

2128- 

2C 

B9 

00 

FA 

85 

2D 

A9 

00 

2130- 

A0 

05 

06 

2D 

26 

2C 

2A 

88 

2138- 

DO 

F8 

69 

BF 

20 

ED 

FD 

CA 

2140- 

DO 

EC 

A9 

A0 

20 

ED 

FD 

A4 

2148- 

2F 

A2 

06 

E0 

03 

F0 

1C 

06 

2150- 

2E 

90 

0E 

BD 

B3 

F9 

20 

87 

2158- 

21 

BD 

B9 

F9 

F0 

03 

20 

87 

2160- 

21 

CA 

DO 

E7 

60 

88 

30 

E7 

2168- 

20 

80 

21 

A5 

2E 

C9 

E8 

B1 

2170- 

3A 

90 

F2 

20 

56 

F0 

AA 

E8 

2178- 

DO 

01 

C8 

98 

20 

80 

21 

8A 

2180- 

C6 

FD 

C6 

FD 

4C 

DA 

FD 

C6 

2188 - 

FD 

4C 

ED 

FD 






• 实用程 序 • 


在 LASER 310 中增加简易 RENUMBER 功能 

北京六十一中郑嘉琦 


在改写现有程序的行号时， LASER310 中没有 
RENUMBER 命令，只能一句一句地改写。有时程序很 
长，改起来非常费事。为此笔者编了一个改写行号的程 
序来帮助解决这一问题。具体做法介绍 如下： 

1. 先输入下面 basic 程序； 

10 POKE 30862,0： POKE 30863 ,114 
20 FOR 1=1 TO 31 
30 B=29183 +I：READ A 
40 POKE B,A：NEXT I 

50 CLS：PRINT @129,**YOU CAN LOAD YOUR PROGRAM 
NOW. ” 

60 DATA 33,233,122,94,35,86,235,1,0,0,175,237,74 
70 DATA 200,237,75,33,121,235,35,126,129, 119,35, 
126 

80 DATA 136,119,235,195,3,114 
90 END 

2 •运行程序。待屏幕上出现 “YOU CAN LOAD 
YOUR PROGRAM NOW. ”之后•，用 CLOAD 命令从磁 


带机中调入需要改写行号的程序。 

3. 程序调入后，键入 A = USR(X)<CR〉（X 为行号 
值增量，可以是正整数，也可以是负整数），屏幕上很快 
显示 “READY” 提示符。这时待改程序每一语句的行号 
值都已增加了 X, 可用 LIST 命令査阅改后的程序。例 
如键入 A = USR(500)<CR> 那么原有程序每一语句的 
行号值都会增加 500, 如果再键入 A = USR(-500) 
〈 CR> ， 原有程序每一语句的行号值又可 还原。 

上述方法只能改写每一语句的行号，不能改变无 
条件转向、条件转向、子程序调用等语句中的转向行 
号。这些语句中的转向行号须用通常方法逐一加上增 
量 X 。 

•此时一个用于改写行号的机器码程序已送入内存的 
高分辨率显示区。只要不断电，不运行有 MODE(l) 的 
程序，该机器码程序将常驻内存供随时使用。 
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• 苹果园 地 • 

微机绘图软汉字操作系统 


长沙有色金属专科学校任基重 

内容提 要:本 文提出了设计一种操作灵活、占用内存少的软件系统的方案，使不带汉卡的绘图仪能书 
写汉字，该方案设计原理通俗易懂，使用简便，兼容性强。不失为一种“图形汉化”的有力工具 


一、前言 

计算机绘图一般是用一台或多台绘图仪。目前，国 
内使用的绘图仪大多不带汉字操作系统，在对图形进 
行汉字说明时是极为不便的。为此，必须给绘图仪配备 
硬汉卡或软操作系统。但这类市售产品价格昂贵，且兼 
容性差，给“图形汉化”带来了困难。 

我们对汉字笔画进行分析后，建立了“苹果机绘图 
软汉字操作系统”(以下简称 “ GCDOS 系统”)。该系统 
包括软汉字生成及写字两大部分。软汉字所占内存较 
少，且字形可进行放大、缩小、旋转、错移、加粗等，非常 
灵活。该系统不涉及硬件任何变化。其设计思想对任 
何微机系统都是适用的。为此，将 GCDOS 系统原理及 
内容简述如下。 

二、原理概述 

汉字的字形虽然变化无穷，但就绘图而言，可认为 
只有一种笔形，这就是直线。所有弯钩、转折都可看成 
是由小段直线构成。众所周知，已知起止点坐标，可命 
令绘图仪画直线。可以设想，只要把每一笔(直线)的四 
个坐标值(每点两个)赋给四个下标变量，启动绘图仪 
后，将坐标值按次序送给它，就可将字写出来。这种方 
案简单，但有明显的弱点。首先，坐标值占用内存太多。 
以一个10画的字为例，假设全部由直线构成，那末需 
用40个下标变量表示。即使用最节省内存的整形数组 
(每个元素占用2个字节），也要占用80个字节。况且 
大多数汉字都不是简单直线构成，分解成直线以后，就 
会占用更多的内存。其次，这种用变量直线存贮坐标值 
的方法，在存盘和读盘时相当费时，影响操作速度。 

我们将汉字笔画分为三类 :直线 、折线和口形线。 
直线用两个坐标点表示，口形线也只用两个点(对角线 
的两端点)表示，折线则只要表示两端点和中间的折点 
即可。这样就比上述方案节省了一些坐标点。其次，我 
们用 15 X 16( 宽 X 高)点阵表示一个汉字，即横坐标最 
大值为 14($ 0 E ')， 纵坐标最大值为 15($ 0 F )。 因此， 
可将一个点的两个坐标链接成一个字节，并规定横坐 
标占高4位，纵坐标占低4位。这样，坐标值组成的字 
节其最大值为 $ EF ， 最小值为$00。如此处理，至少可 
比前述方案节省3/4内存空间。而且，这种代码可用 B 


型文件存盘和读盘，比 T 型文件要快得多。 

为了在译码时能让机器识别哪些是直线、折线和 
口形线，还必须在坐标值前加以标志。注意到坐标值字 
节的高4位不可能为 “ F ”， 故以高字节为 “ F ” 者为标 
志。例如 $ F 1 表示紧接其后的两字节为口形线的对角 
点坐标； $ Fn ( n 为2〜 E ) 表示紧接其后的 ( n +1) 个字 
节为折线的两端点及折点的坐标。这样处理，一个弯曲 
笔画最多可分解为12个折点构成的折线，实际上已经 
足够。直线端点坐标不加标志，一个汉字代码结尾以 
$ FF 表示，以保证一个存贮块中可以容纳多个汉字， 
并按存贮先后位置编写字号，以便使用时调用。 

按这种方案所设计的软汉字代码，所占存贮空间 
与汉字笔画多少和复杂程度有关。最少的(如“一”字） 
占用3个字节。通常汉字中最多的不超过40个字节。 
例如较复杂的“薄”字占用37个字节。据统计，每个汉 
字平均占用22个字节。 

下面我们会看到，以 15 X 16 点阵表示汉字与 CC - 
DOS 的点阵相同，采取机器编码时可带来极大方便。 
如有特殊需要扩大点阵，可采取“拼接”的方法，例如用 
四个 15 X 16 的部分拼接成 30 X 32 的点阵结构。或者 
改变代码形式以5位二进制数表示一个坐标，只是占 
用内存要增加一些。 
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H 





0 

$ 

0 1 

2 

3 4 

5 

6 

7 

8 

9 

A 

B 

c 

D 

E 

$ 
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图 1 为“可”字的编码示例。“可’’字由一条直线(两 
端点位置以“0”表示，其坐标值为 $0 E , $ EE ) —条口 
形线（两对角点以 “A” 表示，其坐标为$35, $8 B ), — 
条折线(其端点和折点以 “F 、 G 、 H、I 表示，坐标分别为 
$ BS , $ A 0, $81) 组成。所以“可”字全部代码 
为 ：0 EEE F 3 BE B 1 AO 81 FI 35 8 B FF , 共占用 11 个字 
节。原点选择在左下角是为了与绘图仪坐标系统一致， 
解码时计算方便。 

按照上述规定进‘行编码。在一张标有十六进制数 
的 i 5 xie 的方格坐标纸上写上汉字，按笔画所处的位 
置依次写上坐标代码。代码在存贮区的位置对字形没 
有影响，只影响书写的顺序。但一种线型的坐标代码必 


须连续存放，并按规定加上标志。 

附带指出，汉字在书写时可能要进行放大，为此， 
两笔的结合部必须连续，不能留有间隙。例如“ r ” 字的 
横与竖钩必须紧密相连，即竖钩（折线）的起点纵坐标 
必须与横(直线 ) 的纵坐标相等，否则，在放大时就会在 
两笔的结合部出现空隙。例如，图1的 F 点即处在 0-0 
线的水平线上。 

由上述可知，当一个汉字的代码确定以后，在书写 
时，可按对图形进行放大、旋转、错移的方法对字形进 
行灵活处理。但不能改变字体。例如由工程字改变为 
仿宋体、魏碑等。（末完待续） 


• 苹果园地 • ' 

用汉字提示错误信息 

华油局机关中学牛保军 


APPLE- II 无论使用汉卡或是软汉字系统，所给 
出的错误信息都是英文的。一些初学 basic 语言或不 
慷英语的人要想了解发生了什么错误比较困难。 

我在实际工作中编写了一个小程序，使所有的错 
误信息全部由中文显示，内容包括 :发生 错误的行号、 
代码及错误的种类。即便于微机的学习，又便于程序的 
调试。 

程序的使用 方法: 开机后先引导 DOS, 而后调入此 
程序，再键入用户程序，使用者的行号要在]至6999 
之间，这个范围可根据自己的需要进行调整。但在 ON - 
ERR GOTO X X X X 语句之前不能有其它语句，非执 
行语句除外。在你自己编写的程序中不能再有 ONERR 
GOTOX X X X 语句。否则0 ONERR GOTO 7000失去 
作用。 

程序中的为清屏指令，根据自己的系统替换相 
应的清屏幕指令即可。 

程序 如下： 

0 ONERR GOTO 7000 
10 FOR 1=1 TO 2 
20 PRINT I 
30 NEXT 
40 GOTO 50 

6999 END 

7000 DIM C(33),K$ (33) 


7010 CALL —198：POKE 37,5 ： K(1 ) = PEEK(219) * 256 + 
PEEK (218) ： K(2)=-PEEK (222) 

7020 FOR 1=1 TO 31：READ C(I)：NEXT 1 
7030 FOR J-l TO 31 ：READ K $ (J) ：NEXT J 
7040 W = 0 

7050 W = W-fl ；IF C(W)-K(2) THEN 7080 
7060 GOTO 7050 

7080 POKE 37, 10 ： POKE 36 ,0: PRINT “ 错误行号 ”； K 
(1);”. ”; “ 代 ”;K$ (W) 

7100 END 

7200 DATA 0• I ， 2,4 ， 5, 6 ， 7 ， 8 ， 9 ， 1 0, 11 , 12,1 3, H ， 15, 16 ， 
22. 42, 53, 69, 77, 90, 107, 120, 133, 163, J 76, 191, 
224,254,255 

7210 DATA “NEXT 与 FOR 不对应 “ ， “ 尼此语言“，“范围错 
误“，”磁片封口 ” ， ”T 已完 ” ， ” 无此文件 ” 

7230 DATA” 磁盘片不对，，， ”1/0 错误， V ，磁盘 已满”，”文 件 
有锁 ” ， "DOS 语法错误 ” ， ” 圮缓冲区 ” 

7240 DARA “ 文件类型不对 ” ， “ 程序太大”，”非直接命 
令 ” ， ” 语法错误 ” ， “RETURN 与 GOSUB 不对应 ” 

7250 DATA ” 数据不足 ” ， ” 不止确的量 ” ， ” 溢出”，”内存不 
够 ” ， ” GOTO 错误 ” ， ” 卜 ‘ 标 不对 ” ， ” DIM 重复 ” 

7260 DATA “ 用零除 ” ， “ 类型不配 $ 太长”，“表达式复 
杂 ” ， ” 无定义的函数 ” ， “INPUT 错误 ”，“ Q 按 CTRL-C “，”，，，“ 

7270 RESTORE 
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屏幕文字翻滚程序 


浙江天台中学陈鸿伟 


本人在编制一些教学软件过程中，为了加强屏幕 
效果，使软件中的文字说明能象影幕上的演员表一样 
由下往上翻滚，编了一段机器语言程序（见程序2)。 

本程序位于$ 6000-$ 6 05 6 ,采用了査表法。可用 
程序1造出地址表。运行程序1时， $ FA , $ FB 存放 
$6100, $FC, $FD 存放 $61 C 0。 当 $ E 6 中为 $20 
时，造髙分辨率图形区第一页表； $ Ee 中为# $40时 
造第二页表。 

一些中文系统如 STC 系统、 ZSD 系统等是以高分 
辨图形第一区作为显示区，因此在调用本程序前，应先 
把第一页的内容，移到第二页，然后再调用本程序。程 
序运行时，屏幕开始是一片空白，然后从最下面一行开 
始逐行翻滚出文字。上滚的速度适合于阅读的速度。 

修改本程中的一些数据，可实现部分屏幕向上翻 
滚。部分滚动的好处是，在中文系统下运行图文并茂的 
程序时，可把屏幕划分成二区，一部分用于文字说明的 
翻滚，一部分用于所绘图形，可实现文字动而图不动， 
便于文字对图形的说明。 

程序1 


0300- 

A9 

00 


LDA 

# $00 

0302- 

A2 

00 


LDX 

# $00 

0304- 

A0 

00 


LDY 

# $00 

0306- 

20 

11 

F4 

JSR 

$ F411 

0309- 

A0 

00 


LDY 

# $00 

030B- 

A5 

26 


LDA 

$26 

030D- 

91 

FA 


STA 

($FA)，Y 

030F- 

A5 

27 


LDA 

$27 

0311- 

91 

FC 


STA 

($FC)，Y 

0313- 

EE 

0A 

03 

INC 

$ 0301 

0316 

EE 

0A 

03 

INC 

$ 030A 

0319- 

C0 

BF 


CPY 

# $BF 

031 B- 

D0 

E3 


BNE 

$ 0300 

031D- 

60 



RTS 



地址表 


6100- 

00 

00 

00 

6108- 

80 

80 

80 

6110- 

00 

00 

00 

61J8- 

80 

80 

80 

6120- 

00 

00 

00 

6128- 

80 

80 

80 

6130- 

00 

00 

00 

6138 - 

80 

80 

80 


00 

00 

00 

00 

00 

80 

80 

80 

80 

80 

00 

00 

00 

00 

00 

80 

80 

80 

8,0 

80 

00 

00 

00 

00. 

00 

80 

80 

80 

80 

80 

00 

00 

00 

00 

00 

80 

80 

80 

8Q 

80 


6140- 

6148- 

6150- 

6158- 

6160- 

6168- 



61B0- 
61B8- 
61C0- 
61C8- 
61 DO- 


61 F0- 
61F8- 


6210- 

6218- 

6220- 

6228- 

6230- 

6238- 

6240- 

6248- 

6250- 

6258- 


6268- 
6270- 
6278- 


28 

28 

28 

28 

28 

28 

28 

28 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

28 

28 

28 

28 

28 

28 

28 

28 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

28 

28 

28 

28 

28 

28 

28 

28 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

28 

28 

28 

28 

28 

28 

28 

28 

A8 

A8 

'A8 

A8 

A8 

A8 

A8 

A8 

50 

50 

50 

50 

50 

50 

50 

50 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

.DO 

50 

50 

50 

50 

50 

50 

50 

50 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

50 

50 

50 

50 

50 

50 

50 

50 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

50 

50 

50 

50 

50 

50 

50 

50 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

20 

24 

28 

2C 

30 

34 

38 

3C 

20 

24 

28 

2C 

30 

34 

38 

3C 

21 

25 

29 

2D 

31 

35 

39 

3D 

21 

25 

29 

2D 

31 

35 

39 

3D 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

23 

27 

2B 

2F 

33 

37 

3B 

3F 

23 

27 

2B 

2F 

33 

37 

3B 

3F 

20 

24 

28 

2C 

30 

34 

38 

3C 

20 

24 

28 

2C 

30 

34 

38 

3C 

21 

25 

29 

2D 

31 

35 

39 

3D 

21 

25 

29 

2D 

31 

35 

39 

3D 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

23 

27 

2B 

2F 

33 

37 

3B 

3F 

23 

27 

2B 

2F 

33 

37 

3B 

3F 

20 

24 

28 

2C 

30 

34 

38 

3C 

20 

24 

28 

2C 

30 

34 

38 

3C 

21 

25 

29 

2D 

31 

35 

39 

3D 

21 

25 

29 

2D 

31 

35 

39 

3D 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

23 

27 

2B 

2F 

33 

37 

3B 

3F 

23 

27 

2B 

2F 

33 

37 

3B 

3F 


程序 2 


6000- 

AD 

50 

CO 

LDA 

$C050 

6003- 

AD 

57 

CO 

LDA 

$ C057 

6006 - 

AD 

52 

CO 

LDA 

$ C052 


29 



6009- 


A9 DO 
85 08 
A9 3F 


600F- 

85 

09 


6011- 

A9 

00 


6013- 

85 

FA 


6015- 

A6 

FA 


6017- 

BD 

00 

61 

601A- 

85 

06 


601C- 

BD 

80 

62 

601F- 

85 

07 


6021- 

A0 

27 


6023- 

B1 

06 


6025- 

91 

08 


6027- 

88 



6028- 

10 

F9 


602A- 

E6 

FA 


602C- 

A2 

00 


602E- 

BD 

00 

61 


LDA 

# $D0 

STA 

$ 08 

LDA 

# $3F 

STA 

$09 

LDA 

# $00 

STA 

$FA 

LDX 

$FA 

LDA 

$ 6100,X 

STA 

$06 

LDA 

$ 6280,X 

STA 

$07 

LDY 

# $27 

LDA 

($06),Y 

STA 

($08),Y 

DEY 


BPL 

$ 6023 

INC 

$FA 

LDX 

# $00 

LDA 

$6100,X 


85 

FE 


STA 

$FE 

BD 

CO 

61 

LDA 

$61C0,X 

85 

FF 


STA 

$FF 

E8 



INX 


BD 

00 

61 

LDA 

$ 6100.X 

85 

FC 


STA 

$FC 

BD 

CO 

61 

LDA 

$61C0,X 

85 

FD 


STA 

$FD 

AO 

27 


LDY 

# $27 

B1 

FC 


LDA 

($FC)，Y 

91 

FE 


STA 

($FE)，Y 

88 



DEY 


10 

F9 


BPL 

$ 6045 

EO 

CO 


CPX 

# $C0 

DO 

DE 


BNE 

$ 602E 

A5 

FA 


LDA 

$FA 

C5 

CO 


CMP 

$C0 

DO 

BF 


BNE 

$6015 

60 



RTS 



浮动机器语言程序 

南京六合一中 张亚栋 


我们在使用机器语言程序的时候，如果内存中需 
要存放多个程序，就有可能造成内存冲突，这就需要某 
些机器语言程序转移到另一块内存去。对于在程序中 
全部使用相对转移来实现跳转的机器语言程序可以用 
监控中的 “ M ” 指令去搬动，但对于用绝对地址跳转的 
指令，如果用 “ M ” 指令程序将不能正确运行。 

下面的机器语言程序，可以自动对需搬动的程序 
进行变址操作并使其能正常运行。先输入下列程序，再 
键入 3 F 8 : 4 C 00 80 \。然后，就可以在监控下用 Al < 
A2. A3 |cTRLl-jYl \ 把从 A2 到 A3 的机器语言程序 
搬到从八】开始的内存中去。 

本程序由于全部使用相对转移指令，•因此程序地 
址可浮动，如要浮动可先用 “M” 指令搬运，再在 $3 F 9、 
$ 3 FA 中分别置入起始地址低位、高位即可。 


8000- 

20 

75 

FE 

20 

2C 

FE 

A2 

00 

8008- 

20 

8C 

F8 

A5 

2F 

C9 

02 

DO 

8010- 

45 

A0 

01 

38 

B1 

3A 

E5 

40 

8018- 

C8 

B1 

3A 

E5 

41 

90 

37 

AO 

8020- 

01 

A5 

3E 

FI 

3A 

A5 

3F 

C8 

8028- 

FI 

3A 

90 

2A 

38 

A0 

01 

A5 

8030- 

40 

E5 

44 

85 

FE 

A5 

41 

E5 

8038- 

45 

85 

FF 

38 

A5 

3A 

E5 

FE 

8040- 

85 

00 

A5 

3B 

E5 

FF 

85 

01 

8048 - 

B1 

3A 

38 

E5 

FE 

91 

00 

C8 


8050- B1 

3A 

E5 

FF 

91 

00 20 

53 

8058 - F9 

85 

3A 

84 

3B 

18 A5 

3A 

8060- E5 

3E 

A5 

3B 

E5 

3F DO 

9E 

8068 - 60 







例： 







6000- 

AD 

00 

20 

LDA 

$2000 


6003- 

20 

11 

60 

JSR 

$6011 


6006- 

EE 

01 

60 

INC 

$ 6001 


6009- 

DO 

03 


BNE 

$ 600E 


600B- 

EE 

02 

60 

INC 

$6002 


600E- 

4C 

00 

60 

JMP 

$ 6000 


6011- 

AD 

00 

CO 

LDA 

$C000 


6014- 

10 

FB 


BPL 

$6011 


6016- 

20 

FO 

FD 

JSR 

$FDF0 


6019 - 

60 



RTS 




* 2500(6000. 6019 CTRL-Y \ 


2500- 

AD 

00 

20 

LDA 

$2000 

2503- 

20 

11 

25 

JSR 

$2511 

2506- 

EE 

01 

25 

INC 

$ 2501 

2509- 

DO 

03 


BNE 

$250E 

250B- 

EE 

02 

25 

INC 

$2502 

250E- 

4C 

00 

25 

JMP 

$2500 

2511- 

AD 

00 

CO 

LDA 

$C000 

2514- 

10 

FB 


BPL 

$2511 

2516- 

20 

FO 

FD 

JSR 

$FDF0 

2519 - 

60 
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高分辨图形旋转90°硬拷贝 


西安高级中学 

用常规方法硬拷贝高分辩图形，只能横向拷贝， 

在 80 列打印机上横向最多只能拷 W 两幅图•这对一 
般用户是足够 r ， 但是如果要打印较长的组合图形 
.(如连环画、漫画等），就显得不方便。然而，如果将图 
形旋转 90° 后再打印，并将这样打印出来的一幅幅 
图形自然地连接起来，就能形成一幅长条画。为此， 
本人编了两段汇编语言程序，成功地解决了高分辩 
图形旋转■硬拷 M 的问题。 

程序一是仅将髙分辩第一页图形顺时针旋转 
90° 硬拷程序二是不汉将图形旋转 90% 而且纵横 
向均放大一倍。这两个子程序用户可根据情况任意 
选用，调用前，应先把待打印的图形调入高分辩第一 
页，并打开打印机电源开关，然后在监控状态下键入 
6000G 即可自动打印。 

打印长条形的组合画时，可先把整个画面进行 
分割创作，并按顺序分别存放在若干个图形文件中， 

然后依次把这些 图形文 件调入高分辨第一页打印即 
可。 


程序•和程序二均在 APPLE- 11 机通过，对程 
序二略加修改，还可实现仅纵向放大一倍或横向放 
大一倍，使拷 W 出来的图形更富于趣味性。 


程 序一： 
6000- 4C 

3'1 

60 

A0 

00 

98 

•18 

20 

6008- 

11 

F4 

68 

A8 

A5 

26 

99 

00 

6010- 

90 

A5 

27 

99 

00 

91 

C8 

CO 

6018- 

C0 

DO 

EA 

60 

2C 

Cl 

Cl 

30 

6020- 

FR 

8D 

90 

CO 

60 

B1 

OC 

85 

6028 

FA 

A0 

’07 

A9 

00 

66 

FA 

2A 

6030 

88 

DO 

FA 

60 

A9 

20 

85 

E6 

6038- 

20 

03 

60 

A9 

IB 

20 

1C 

60 

6040- 

A9 

^11 

20 

1C 

60 

A9 

07 

20 

6048- 

1C 

60 

A2 

00 

A0 

BF 

A9 

]B 

6050- 

20 

1C 

60 

A9 

4B 

20 

1C 

60 

6058- 

A9 

CO 

20 

1C 

60 

A9 

00 

20 

6060- 

1C 

60 

98 

48 

B9 

00 

90 

85 

6068- 

0C 

B9 

00 

91 

85 

0D 

8A 

A8 


陆裕元 

6078- 88 DO E7 B9 00 90 85 0C 

6080- B9 00 91 85 0D 8A A8 20 

6088- 25 60 20 1C 60 A9 0A 20 

6090- 1C 60 E8 E0 28 DO B5 60 

6098- 60 

程序二 

6000— 4C 7C 60 A0 00 98 '18 20 

6008 11 F-1 68 A8 A5 26 99 00 

6010- 90 A5 27 99 00 91 C8 C0 

6018- CO DO EA 60 2C Cl Cl 30 

6020- FB 8D 90 CO 60 AO CM 6A 

6028 - 08 66 08 28 66 08 88 DO 

6030- F6 60 B9 00 90 85 0C B9 

6038 00 91 85 0D 98 85 FB 8A 

6040- A8 B1 0C 85 FA A0 07 A9 

6048 - 00 66 FA 2A 88 DO FA 20 

6050- 25 60 26 08 2A 85 FA M 

6058 - FB A5 08 4 A 91 06 A5 FA 

6060- 20 25 60 A5 08 4A 60 A9 

6068 - IB 20 1C 60 A9 4B 20 JC 

6070- 60 A9 80 20 1C 60 A9 01 

6078 - 20 1C 60 60 A9 00 85 06 

6080- A9 92 85 07 A9 20 85 E6 

6088 - 20 03 60 A2 00 A0 BF A9 

6090- IB 20 1C 60 A9 41 20 1C 

6098 - 60 A9 ()7 20 JC 60 20 67 

60A0- 60 . 98 48 20 32 60 20 1C 

60A8 - 60 20 1C 60 68 A8 88 DO 

60B0- F0 20 32 60 20 1C 60 20 

60B8- 1C 60 A9 0A 20 1C 60 20 

60C0- 67 60 A0 BF B] 06 20 1C 

60C8 - 60 20 1C 60 88 DO F5 B1 

60D0- 06 20 1C 60 20 1C 60 A9 

60D8- 0A 20 1C 60 E8 E0 28 F0 

60E0- 03 4C 8D 60 60 00 


6070- 20 25 60 20 1C 60 68 A8 

更 正：】 989 年《苹果园》第六期 PI 7 作者 “ 孙占林 ” 应为 “ 孙占木 ” ， 0 录也同。特表歉意。 
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• 苹果园 地 • 


APPLE I GET 语句的特点 


曲阜师大物理系 李洪珍 


GET 语句的格式是 : 行号 GET 变量名 。它有如 
下 特点： 

对 GET 回答时，输入的字符不被显示， GET 语 
句只接收一个字符，且收到一个字符后不用回车就 
自动执行后继语句。 GET 后跟串型变量时，所有输 
入字符都是正确的，值得一提的是连 CTRL-C 都失 
去了中断作用，只有 CTRL-RESET 还具有复位作 
用。 GET 后跟实型变量与整型变量情况一样，除可 
输入0至9数字外，加号、减号、 E 、 句号、空格、 
CTRL-® 同输入“零”一样。冒号及逗号产生？ EXTRA 
IGNORED 信息，并以“零”作为输入值，除此之夕卜，其 
它输入字符都被认为是错误的。 

在实际中我们发现 GET 语句还有如下三个新 
特点： 

一 、 用 ONERR GOTO 同 RESUME 语句配合组 
成子程序来处理对 GET 语句的回答错误时，如果第 
一次是错误回答而第二次是正确回答，则程序仍可 
执行后继语句;若连续两次错误回答，子程序便回不 
到主程序，整个系统被挂起来，只有按 CTRL-RESET 
键才能复位。若将 RESUME 用 GOTO 语句来代替， 
则不论错误回答多少次，系统都能正常工作，等待正 
确的回答。但是，若系统是在跟踪方式下工作，则当 
错误回答到第60次时，系统便跳到监控状态。 

二、 在较复杂的程序中，人们往往习惯于由 
REM 和 INPUT 语句给出提示信息，但 GET 语句中 
不能加提示信息，下列句子将被认为是有语法错误 
的， 

50 GET ,, PRESS , RETURN，KEY TO BEGIN " ; A $ 
要用 GET 语句给出提示信息，只能将提示信息在 
C . ET 语言之前由 PRINT 给出。 

三、 由于 GET 后跟整型变量和实型变量时，对 
于绝大多数输入字符都被认为是错误的，有人建议 
GET 后总是用串型变量，当需要数字时用 VAL(X 
$ ) 函数把数字字符串转化成数值数字，然而这里有 
一个重要问题就是若未引入 DOS, 则第一次由 GET 
语句得到的1至9范围内的任意一个数字字符串经 
VAL(X $ ) 函数转化时出现变值，例 如： 

10 GET A $ 

20 PRINT " B =" ； VAL(A$ ) 


30 END 

执行该程序时，由 GET 语句第一次得到的 I —— 9 
各 数字字 符串经 VAL(X$ ) 函数转化后的结 果是： 
X$ =1,VAL(X$ ) = 1. 1 1111111 E +16， 
X$=2,VAL(X$) = 2. 22222222 E +16， 
X$=3,VAL(X$) = 3. 3 3 3 3 3 3 3 3 E +16， 

X$ =4,VAL(X$ ) = 4. 44444444 E+16 ， 

X$ =5,VAL(X$ ) = 5. 55555556 E+16 ， 

X$ =6,VAL(X$ ) = 6. 66666667 E+16 ， 
X$=7 ， VAL(X$ ) = 7.7 7 7 7 7 7 7 8 E+16 ， 

X$ =8,VAL(X$ ) = 8. 88888889 E+16 ， 

X$ =9,VAL(X$ ) = 1E+17 
这样，对无磁盘驱动器的机器或无而运行有 
GET 语句的一些程序时常遇到意外的问题，难以査 
出毛病，若用了出错处理子程序更是如此。下面是采 

用 GET 语句和 ON.GOTO. (开关)语句，实现 

对某一个选择的控制的情况。 

100 PRINT "WHICH DO YOU WANT? 1/2/3/4/5 / 

6，' •• 

110 GET A $ 

120 B=VAL(A$ ) 

130 ON B GOTO 1000, 2000, 3000, 4000, 5000, 
6000 

初看起来此程序没有问题，但若未引入 DOS ，由 
上面所述的变值情况， 1 加句中的 B 值远远超过了 
130 句中开关语句中规定的 B 值，故程序在 130 句 
中断，并出现？ ILLEGAL QUANTITY ERROR 信息， 
初 I 次遇到此问题，不知为何超界，也许怀疑程序有其 
它问题。 

另外，还须指出，当 GET 后跟整型或实型变量 
时， 未引入 DOS 下第一次由 GET 语句得到 1 至9范 
围内的数字经 STR$ (X) 化成字符串，再经 VAL(X 
$ )转化时仍出现上述变值问题。 

解决此变值问题，可设置一个变量代换语句，如 
上例中在 GETA $ 之后加一句 C $ = A $ 同时120 
号语句中改为 B == VAL ( C $ ) 程序便可顺利运行。 

由于第二次及以后由 GET 语句得到的数字字 
符串 VAL(X$ ) 转化时不再变值，故还可利用其它 
方法解此变值问题，在此不再详述。 
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• 高级语言介绍 • 


独具魅力的第四代高级语言 forth 


北京记者站 邵旭光范连胜曾京严北菱 


FORTH 语言是 19(59 年由美国的 Charles H. 
Moore 专家发明的一神新型的高级语言。在目前众 
多的计算机语言中，它以风格新颖，结构精巧，简捷 
灵活，扩充方便，编译快速，使用简单以及运行速度 
快，内存空间省,开发时间短等特点显示出强大的生 
命力。它是一种高级语言，也是一套软件开发工具， 
一种操作系统或一种面向问题的元语言。它简单的 
语法格式，天然的模块结构、极大的灵活性以及会话 
式编译与执行为用户提供了一个强有力的软件开发 
环境。利用它，用户可十分容易地实现自己的任何程 
序设计思想、意图，包括数据类型的扩充，系统本身 
的改进与生成，任何硬件接口的直接通信等等。 
FORTH 标志着第四代计算机语言的产生，它代表着 
一场面向用户和面向 fl 然语言的革命。有人预言:如 
果说世界上将出一种最终的计兑机语言的话，那么 
这种语言类似于 FORTH 的地方一定会比类似其它 
高级语言的地方多 得多。 

FORTH 与其它高级语言有着很大的不同，它的 
浊特性有以下 几点： 

_、独立的完整的软件 

FORTH 系统一旦生成后，不必进行任何界面的 
转换，也就是说只在 FORTH 系统这一界面上就可 
以进行从编辑、编译到运行的各个工作。这是因为 
FORTH 系统包括了操作系统的常驻模块的全部或 
主要功能，并且有自己的文本编辑器。更有独到之处 
的是 FORTH 汇编语言编译子系统，可以在 FORTH 
系统中直接编译运行汇编程序。 M 然，仅仅 forth 
本身就已形成了一个独立完整的软件环境。这样就 
大大简化了程序的编辑、编译和执行过程，提高 r 速 
度和效率。同时由于不必进行界面的转换，使初学者 
易于掌握。 

二、完全结构化的语言 

FORTH 系统在软件的结构化'方面占有明显的 
优势。首先 FORTH 系统本身就采用了完全结构化 
和关系简明的词典结构。词典中的每个单词具有完 
全相同的构造。这些电词中的核心单词好象是系统 
提供给用户有•‘基本标准器件”。同时 .FORTH 系统 
还从根本上避免了 CiOTO 类的非结构成份。采用 
FORTH 系统，操作 f?' 本身可以用结构化生产手段将 


“基本标准器件”逐级地制造出自己所需要的产品。 
这样生产出来的产品与操作者的操作水平和思维方 
法的关系较小。用 forth 语言设计生产软件可以 
完全向物质产品的生产过程一样，进行“自顶向下” 
的设计和“自下而上”的生成。完全结构化的软件设 
计方法将使软件生产进入软件高度工程化阶段。这 
就使得软件技术真正地成为一本科学，而不再象过 
去仅仅被当作…种技巧。 

三、 具有自扩展能力的一种语言 

FORTH 语言的新颖的设计思想，使 FORTH 的 

结构和功能与人脑知识结构比较近似。系统首先提 
供足够数童的基本单词，这好 象一个 人具有 了一定 
的基本知识 a 在这些基本单词的基础上，系统允许操 
作者按某一新功能的盖要，对已有基本单词进行特 
定组合，构造成一个具有新功能的单词，存入讨典， 
这样扩展 r 基本单词.这与人脑在已有知识的基础 
上，积累新知识的过程很相似。 

FORTH 系统包括了结构化的 FORTH 汇编•所 
以单词的扩展（积累）还町以用 forth 汇编直接产 
生由机器码组成的最基础的单词，对词典进行扩展。 
为 r 解决系统规模不断增大与有限的内存空间的矛 
盾， FORTH 系统将大量的扩展单词存在辅助存储器 
上的单词•成为 FORTH 系统中极为重要的问题。这 
恰如人们将已有知识进行条理化和制定査阅资料的 
方法，对于利用积累的知识解决实际问题是十分重 
要的一样。 

四、 透明的语言 

使用传统的高级语 H 运行一个程序，在运行过 
程中，操作者无法知道计算机是如何操作的。 
FORTH 系统的运行工作空间是以找的形式存在。全 
部操作都在栈上运行，操作结果总是反映在栈上。栈 
就好象一个透明的窗口。这就使 forth 语言成为 
透明的语言。操作者可通过这个窗口了解机器的执 
行情况，以便于检查和调整机器的操作•从而可以提 
高程序的设计质量^ 

五、 目标码段量最短的语 b 

任何一种高级语言编译系统对源程序的编译过 
程 ，一 般总是要经历词法分析一一语法分析一一中 
间代码生成——优化一-目标代码生成这样五步。 
当源程序很大时，目标程序的规模也大。而 FORTH 
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的词法和语法非常简单，编译原程序的过程中没有 
明显的词法和语法分析的界线，其次是不产生中间 
代码，而是直接产生目标码,并且 forth 的目标不 
再是机器指令代码(汇编单词除外），而是被调用单 
词的入口地址，这就是说目标码段是一串执行单词 
的入口地址。由于每个单词不管其代码段有多长(汇 
编单词的代码流，一般单词为地址流），其入口地址 
总是以一个地址字（占两个字节）出现。因此，这样形 
成的目标码段的短小程序是很显然的，也是其它高 
级语言的目标码段所无法比拟的。 

forth 语言除了以上特点外，还在动态管理内 
存空间方面优于其它高级语言。 forth 系统在运行 
中可以灵活地分配新单元,及时地回收无用单元，使 
内存空间能得到充分的利用。 

同时由于 FORTH 的目标代码是地址流，其中 
每一个地址都指示着一个单词的入口，并且每个单 
词又具有相同的结构。所以从一个地址得到相应单 
词的名字是唯一的，不具有二义性。因此可以从目标 
程序到源程序的百分之百的反编译，这是任何一种 
高级语言乃至汇编语言都不具备的。 

另外，由于 FORTH 的系统结构也是完全结构 
化的，并且结构关系简明，再加上百分之百的反编 
译，所以 FORTH 系统还具有极好的可移植性。 

综上所述， FORTH 的词典结构，词法及语法的 
简单性，逆波兰表示法的使用，以及开放的双堆栈结 
构，都是 FORTH 创始人 C . Moore 的别具匠心的设 
计思想，也是 FORTH 之所以具有优越性的根源。 

这些特点，使 FORTH 语言在其功能，执行速度 
和效率上，是其它任何语言所无法比拟的 。 FORTH 
程序开发速度大大超过了 PASCAL 、 FORFRAN 、 C 语 
言等第三代高级语言，而运行速度接近汇编语言。 

FORTH 语言首先在美国流行，然后又在日本、 
西欧等发达国家掀起热潮。它的应用范围也从最初 
的天文学界 （1976 年被定为国际天文学会标准语 
言)深入到了科学计算、工程技术及事物管理各个领 
域，，并进入了许多大学的课堂。尤其在过程控制、机 
器人控制、图象处理、通讯、数据采集与分析、科学和 
医学仪器仪表等应用领域内显示了任何其它高级语 
言所无法比拟的突出优越性。它的直接处理中断、直 
接与1/0接口通信以及在多作业运行方式下的实时 
编译等能力 .为 实时控制和管理提供了迄今为止最 
为优秀的实时处理语言。 

FORTH 语言目前正在世界上逐渐地流行开来， 
“若干年后，它将成为象 basic 那样普及的语言”。 
为了发展和完善 forth 语言，]977年成立了国际 
性 FORTH 学术组织 —— FIG ( FORTH Interest 
Group ), 它拥有自己的学术刊物，会员遍及世界各 
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地。目前，国际上 FORTH 编程人员逐年增加，应用 
FORTH 设计的项目日益增多， FORTH 硬件技术的 
结合，将会产生不同于目前的传统的诺曼型计算机 
的新一代计算机。 

这些都引起了我国科技界的关注和重视。我国 
从1980年开始引进 FORTH 语言，经过剖析、移植与 
改进，已在航天航空、天文、工业过程控制、图象处 
理、人工智能、单板机开发以及高校教学方面开始应 
用，汉化 FORTH 等也已推出成果, FORTH 在我国也 
愈来愈受到 欢迎。 1987年6月还在北京成立了中国 
FORTH 应用研究会，创办了刊物《多思》(原名多思 
通讯）。使得这一语言在中国得到了初步普及。 
forth 语言正在不断地扩展我国各地科技和生产 
领域的应用范围，对于打破西方国家计算机技术方 
面垄断地位，实现软件工厂化生产有着十分重要的 
意义。 . 

我们坚信，随着 FORTH 语言与中华学习机的 
结合，将对 forth 在我国的普及应用打下坚实的 
基础。我国在计算机这个高科技领域中 , FORTH — 
定会带来新的飞跃。 


引你走人新的境界 

——读 《 FORTH 入门》 有感 

FORTH 语言与一般的高级如 BASIC 、 FOR ¬ 
TRAN 和 PASCAL 等不同，它具有直观的、精炼的单 
词表达形式,准确的、无二义性的语法结构，灵活简 
短的写作格式和快速的编译过程。用它来编制一个 
编译系统的时间比用 C 语言还要少,能比使用汇编 
语言提高开发速度十几倍以上。目前，世 界各 国已掀 
起应用 FORTH 的热潮。它是人们多年来苦心寻觅 
的-种与机器之间界面简单、结构化好 、透明 性强， 
以及编译效率高并能自扩展的、理想的软件开发工 
罠。 

《 FORTH 入门》是中国 FORTH 应用研究会向读 
者郑重推荐的一本极佳教材。它不仅内容丰富，而且 
表述生动，举例翔实。全书共分十二章，系统地介绍 
了 FORTH 语言基础，数据类型，数学运算，控制结 
沟，输入输出， FORTH 内幕，语言扩展和实例等。每 
个章、节都有习题，并在附录中给出了答案。 

本书由浅入深，通俗易愤，寓知识于趣味之中， 
巧妙地引导读者从书中学到许多编程技巧和编程风 
格方面的本领。希望它能把您引入一个趣味盎然、别 
有洞天的新境界。 

(黎光） 



• 新产品与新技 术 • 

突破苹果机极限 

西安祌楼书店图书业务管理系统面市 

计算机信息报社 张慧英 


鉴于社会上广为使用的 dBASE m 开发出来的 
应用系统速度慢、相对容量小、系统易遭破坏、使用 
不便及微机闲置率高等情况，西北大学计算机系的 
洪蓬同志在苹果机上研制开发了西安钟楼图书业务 
管理系统及其软件新方法，经一年半的使用，用户感 
到很满意。西安市总新华书店已打算将此系统及方 
法推广到西安市区级书店。 

这套系统的全部功能包括建立三个数据库及在 
这三个数据库上实现的各种统计、检索与制表功能。 

该系统数据库是图书信息数据库。它包含了三 
万种图书的基本信息、流水帐及累计数据 。每一 种图 
书的基本信息包括书名、编号、类别、版别、书版年 
限、部别、订货依据、定价共8个数据项。每一种图书 
的流水帐共7种224 笔: 订货帐、预订帐、到货帐、实 
收货帐、调入帐、调出帐、发货帐，每种帐最多有32 
笔。每笔帐包括年、月、日、册数等。每一种图书累计 
数据共16个,8个为零售累计,8个为批发累计。 

该系统销售计划数据库，是用来存储书店给各 
个销售组全年12个月的销售计划金额数。它的销售 
帐数据库，是用来存储书店中各销售组一年中的每 
天零售、批发及邮购的图书册数、金额和折扣数。对 
这三个数据 库的内 容都可任意地追加、修改和删除。 

该系统可完成下列 功能: 按版别、部别.类别、查 
阅并统计打印图书信息;按出版年限统计打印图书 
信息《统计打印图书进出库存月报表、销售旬报表、 
计划销售月报表;打印今日各部别图书到货统计表； 
打印预测到货表等五项功能。 

该系统还有两项系统自身使用的 功能： 如按记 
录序号査看、追加、修改和刪除记录;修改系统密码 
(即口令）能在苹果 I 这样小的微机 h 建立起包含有 
三万种图书的大数据库以及在这些库上能实现如此 
齐全而复杂的功能。其软件开发方法是 :整个 系统采 
用汇编语言编制，因而程序量小、运行速度快。尤其 
是软磁盘、汉字显示及打印机工作速度特别快.不采 
用“文件”概念等“文件”结构,直接由人工分配的内 
存空间与磁盘空间,结果是空间节省，速度也快。尤 
其是在数据库遭局部破坏时极易于修复，任何时候 
都不会导致数据的全部丢失。该系统采用一种独 
特的体系结构方式，比用高级语言系统灵活方便，不 


利用任何现成的高级语言和系统软件，而是在详细 
解剖原机器的硬件和核心软件的基础上，针对汉字 
特点与一般应用系统的要求，用汇编语言编制了一 
百多个标准子程序,作为软件工具来调用。用这些标 
准子程序与上述的新型体系结构去开发任何应用系 
统，不比用高级语言或汉字 dBASEBI 困难。 

该系统采用一种特殊的信息压缩方法，使内存 
与磁盘中所装的信息密度大幅度提高。由于采用了 
这种新方法，在苹果机上开发钟楼书店业务管理系 
统取得了比一般用 dBASE m 方法在 IBM PC / XT 机 
上还要好的效果。通过一年多的使用，这一系统表 
现出来的突出优 点是： 

1- 响应速度快 

每输入一个记录只需要1——2秒钟即可写入 
磁盘中，操作人员基本上不等机器，将3000个数 
(每个数的大小为 19999999. 99) 调入或调出软磁盘 
仅需3秒钟，统计一张软盘上的352种图书的各种 
信息一般只需7秒钟，从打开电源开关到屏幕上出 
现应用系统的每幅汉字屏幕之间仅需5秒钟引导时 
间。这样快的响应速度用其它软件工具是根本达不 
到的。 

2- 数据存贮密度大 

每张苹果机单面密度软磁盘 （140 KB ), 如果存 
贮图书信息，则可装下352种图书的总共2816个数 
据项，加上 11.253 笔流水帐，再加上5632个累计数 
据。如果存贮计划和销售信息，则一张软盘可装下整 
整一年的销售帐与计划数，总共38000多个数，每个 
数的大小为 199 M 999. 99,这样的存储密度也是其 
他软件工具所望尘莫及的。 

3- 该系统中，记录在磁盘和内存中不是按“文 
件”结构组织的，而是由人工按物理位置组织安排 
的，因此很容易查看、修改和删除某一物理位置上的 
信息内容，万一局部遭破坏也极易修复，绝对不会发 
生整个数据库一旦被局部破坏而整个丢失的情况， 
用其它软件工具研制的应用系统则作不到这一点。 

4. 软件系统安全性能好 

在输入信息的每步中都对信息的合法性作了检 
测.使非法信息不能送入计算机，即使乱拍键盘也不 
会造成程序和数据库的损坏。在数据存盘和运算过 
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• 新产品与新技 术 • 


CEC — I 磁带 LOGO 版本 


新疆石河子市兵团设计院 刘新平 


中华学习机 CEC— 1 型机固化有 MIT 版 LOGO 
语言(子集）。进入 LOGO 后，键入的过程(程序)仅能 
使用软盘驱动器来进行存取，不能用录音磁带来存 
取 LOGO 程序，而广大的 CEC —I 机用户未必都配有 
软盘驱动器，给 LOGO 语言的推广增加了困难。本人 
经过剖析 CEC — I LOGO, 通过大量的实践，推出中 
华学习机 CEC— I 磁带 LOGO VERSION2. 0( 下称磁 
带 LOGO); 该磁带 LOGO 在开机后用游戏语句 
PLAY 调入，若要存取文件可直接用原 LOGO 语言 
的 SAVE、READ 和 SAVEPICT 、 READP1CT 语言其 
格式不变，同进磁带 LOGO 还具有大小写字母的输 
入输出，使得 CEC--ILOGO 的编程更加方便。为了 
使广大的 CEC —I 用户均能使用磁带 LOGO 现将磁 
带 LOGO 的引导程序提供出来，以便于 LOGO 语言 
的推广和使用。 

在监控状态下键入$ BOOO 起的机器码，然后从 
$ B 000 执行即可进入磁带 LOGO ; 若将引导程序在 
监控状态录制成磁带保存，使用时再在监控状态调 
入后运行，就可方便地使用 SAVE 、 READ 存取文件， 
用 SAVEPICT 、 READPICT 来存取图形，使众多无软 
盘驱动器的用户能使用 LOCO ; 当然每次都要进入 
监控比较麻烦,笔者已将引导程序录成游戏方式，在 
BASIC 状态用 PLAY 方便地调入。 

CEC — I 磁带 LOGO 引导程序 
B 000- A 9 10 8D BO CO 8D 07 C 0 


B 008- 

20 

00 

C 6 

8 D 

06 

CO 

A 2 

00 

B 010- 

A 0 

00 

BD 

84 

B 0 

85 

00 

E 8 

B 018- 

BD 

84 

B 0 

85 

01 

98 

48 

89 

B 020- 

60 

B 0 

A 0 

00 

91 

00 

68 

A 8 

B 028- 

E 8 

C 8 

C 0 

33 

DO 

E 4 

4 C 

D 1 

B 030- 

D 2 

AD 

8 A 

CO 

A 9 

00 

85 

3 C 

B 038- 

85 

3 E 
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20 

85 

3 D 
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40 

B 040- 

85 

3 F 
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ID 

D 1 
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CO 

B 048- 
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00 

85 
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85 

3 E 
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60 

B 050- 

AA 
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20 

85 

3 D 
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61 
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B 058- 

A 9 

40 

85 

3 F 

4 C 

49 

D 1 

00 

B 060- 

31 

B 0 

31 

B 0 

45 

B 0 

EA 

EA 

B 068- 

EA 

EA 

32 

30 

39 

38 

0 D 

0 D 

B 070- 

0 D 

4 C 

78 

70 

20 

58 

4 A 

0 D 

B 078- 

0 D 

0 D 

0 D 

0 D 

00 

00 

00 

00 

B 080- 

00 

20 

00 

00 

35 

6 C 

36 

6 C 

B 088- 

70 

60 

71 

60 

F 0 

6 B 

FI 

6 B 

B 090- 

29 

1 D 

2 A 

ID 

40 

7 D 

\\ 

7 D 

B 098- 

BC 

34 

BE 

34 

DO 

34 

D 2 

34 

B 0 A 0- 

D 5 

34 

D 6 

34 

D 7 

34 

D 8 

34 

B 0 A 8- 

D 9 

34 

DA 

34 

DB 

34 

DC 

34 

B 0 B 0- 

DD 

34 

DE 

34 

DB 

34 

DC 

34 

B 0 B 8- 

E 1 

34 

E 2 

34 

DF 

34 

E 0 

34 

BOCO - 

E 5 

34 

E 6 

34 

60 

AA 

61 

AA 

B 0 C 8 - 

00 

00 

00 

00 

00 

00 

00 

00 


程中尽董采用各种校验手段，防止发生错误。此外在 
开机后进入应用系统之前，要求操作员输入正确的 
密码，防止他人有意或无意地破坏数据库内容。 

5. 硬件系统稳定可靠，对环境适应性强 

由于苹果 I 微机发展较成熟，质量稳定可靠，不 
需要专用机房，在一般办公室即可使用。 

6. 整个系统价格低廉 

由于用苹果 I 型机实现了 原来甶 IBM / PC/XT 
机上才能实现的功能，硬件费用明显降低，加上软件 
费用也底，一般办公室即可使用。所以中小企业和书 
店都具有购买能力。 

7 - 操作简便、直观易学 

只要操作人员具有初中文化，两天即可学会并 
上机操作，一周可熟练掌握。 

现在已将这种新方法移植到了长城 0520 DH 机 


上,并正在为陕西省纺织品公司研制“会计统计业务 
微机管理系统”。这个系统支持如下这样一个复杂的 
商业批发经营 结构: 一个公 司下属 16个小部门 ，一 
个小部门经营64个大类 ，一 个大类领导64个小类， 
一个小类领导512个品种 ，一 个品种领导32个等 
级，一个等级领导10个库址。只需一次性输入进货、 
销货的原始数据，计算机即可按既定的时间要求(按 
每5日、按月、按年)产生会计、统计部门所需要的各 
种数据与报表，并按季度、分仓库、按大类打印出各 
种商品的各个等级的期末库存数量供仓库对帐用。 

这一系统在容量、速度、使用方便程度与系统可 
靠性方面，比上面介绍的苹果 I 系统，则有更大的提 
高。现已受到用户的欢迎.有可能打开一种商业部门 
使用计算机的新局面。 . 
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• 电脑神 通 • 


心电向量图微机分析系统 

89 医院郑建平张金轩汤千一 


心电向量图能准确地显示心动周期内各瞬时心 
电变化的空间相位关系，在很大程度上补充心电图 
诊断的不足,是心脏疾病诊断的重要方法 ■■以 前由于 
描记困难，参数计算费时、繁琐而影响临床应用 。为 
此，我们在本院 等备的 APPLE II 微机和 SJ -42 型多 
道生理记录仪 i 开发了本系统，经实验研究和400 
例临床应用，效果满意。 

工作原理 

— 、系统组成 

1 •由 SJ -42 型多道生理记录仪和 Frank 寻联构 
成系统的信号模拟放大部分。 

2. 微机系统有 APPLE 主机,再配备 1 6 K 语言卡 
和超级汉卡。 

3. 选用 BA 120 超级 A/D + D / A 卡作为中间联 
接部分。该卡有16路 A / D , I 6 路 D / A , 转换精度8 
位，电压士5伏， A / D 转换时间9微秒，该卡置入微 
机的5号扩展槽口，实际应用3路 A / D 串行采集三 
路心电信号，用1路 D / A 控制生理记录仪。 



图一 


二、软件 

本系统软件在 CCDOS -83 超级汉卡操作系统 
下，以 APPLESOFT BASIC 和6502汇编语言编制。其 
主要组成 如下： 


/ 口 不 

存 J 

一 八 / 1 

1 ---1 


D 结果 | 




存贮地_值加 = 
计数^力 1 卩一 _ 
I 返▼主 



图四心电采集与编辑 
子程序图 


图三 A / D 转换子程序图 

间隔 20 ns , 从医学临床角度可看到三路同步进 
行>> 采样后将三路心电图绘制在屏幕上，如图形出现 
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1. 主控程序 :首先 设置内存保护，在 HIMEM 之 
上设定 4 K 空间，放置转换结果和机器语言子程 
序。将 LOMEM 设定在第一页图形区之上，防止程序 
运行中冲撞图 形区。 在汉字状态下以人机对话方式 
显示“菜单”内容。见图二 

2. A/D 转换子程 序：由 6 50 2 汇编语言写成一 
次调入指定内存空间，用 CALL 语句调用，流程图见 
图三。初始化包括设置地址、计数器和变址寄存器清 
零等指令。三路 A / D 转换结果均在指定空间中存贮 
待处理。采用软件延时方式决定采样密度。根据采 
样定理，本系统选用 500HZ 频率，每路采样 1024 
点，足以取到 2-4 个心动周期。 

3. 心电数据采集与编辑子 程序: 本程序首先重 
新设置键盘，使之成为专用功能键盘。在屏幕提示 
下，启动控制键、调用 A / D 转换子程序，完成信号采 
集,采样时 X 、 Y 、 Z 三路心电信号串行采集,每一路 

I 启 1 动 I I 启 ^ 动 I 

化 ~| | 重设盘1 

启动第■路 a / p 」 ~ 1 启动 I 制键 









干扰，漂移等畸变，可启动控制键重新采集。 

心电图形识别是心电信号处理最重要的部分之 
--。近年来曾研究报告多种自动识别方法,如导数 
法，幅值法等。但这些方法对 ORS 波群识别较为有 
效，而对于振幅较小，变化缓慢的 P 波与 T 波的识 
别误差较大，效率不高,结果时常引起临床医师的疑 
问。因此我们选用计算机辅助屏幕编辑方法，由医师 
通过键盘操纵游标，对屏幕绘出的心电图进行识别， 
求取心电特征点，微机自动将这些点的位置记忆并 
送入指定地址存贮。这种方法具有人机交互,准确可 
18的优点，更易被临床医务人员接受。（见图四） 

4•向董图绘制与分析子程 序:完 成各面心向量 
图的绘制，分析计算各个诊断 指标. （见图五） 



Iflfl ； 绘制心向量.图与分析子程序 

绘图以两座标轴的交点为心向量图的零点。向 
M 图的绘制分三个面顺序进行。各面向 t 阌分段 
绘制， P 段（环）， QKS 段（环） ， T 段（环）。首'先以 
PEEK 语句从内存指定空间逐点取出心电数据.从 
两相交轴心电信号中计算求出该瞬时向量的相位、 
角度、振幅变化等各指标，再以高分辨率作图将该点 
绘制到屏幕上。三环绘制完成，再求出各环间的关系 
指标。在一个面向量绘制完后，结果以顺序文件存 
盘。绘图过程及求取指标均以图文并茂形式显示，便 
于医师观察各环体形态及运行方向，做出判断。 

5. 报告打印及图形拷贝子程序：程序首先读取 
磁盘中的心向量指标文件，然后以汉字报表打印输 
出，采用压感复写纸，同时打印两份，节省机时。正交 


心电图及心向量以高分辨率作图方式绘制，采用随 
机动态拷贝打印输出。 

(报告单） 

临床应用 

选择正常人52例,年龄在 32-72 岁，平均年龄 
48 岁。 使用本系统进行检测，将所得48项参数值与 
国外使用标准心向量图机检测结果相比较，无显著 
性差异。（见表1〜 3) 



上述结果表明，本系统在临床上应用是可靠的。 
采用计算机统一测量方法和测量标准，显著的提髙 
了工作效率，通过磁盘可以长期保存采集的图形及 
结果，调阅方便，利于临床科研资料总结。充分显示 
了微机在医学领域应用的极大作用 D 

• 文摘 • 

上海近 60 所高校建立电教中心(室） 

上海目前已有近60所各类高校建立了电教中 
心(室），拥有一支上千人的专职电教 队伍; 有为数众 
多并且配套的电视摄像机、录放像机、电视监视器、 
电影摄影像机.放映录像演播室、电视卫星接收站、 
电子计算机辅助教学系统等教育设施。制的教学 
录像片和录音带已成为文、理、工、医等多种学科的 
教材。（摘自文汇报） 
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• 电脑神 通 • 


家庭档案 


四川攀铜冶金工业学校 黄文贵 


本程序在中华学习机上通过，用于各神记事。记 
事内容以顺序文件的形式存入磁盘，磁盘只须使用 
两次(存盘和调盘）。中文状态每行输入内容，不超过 
34个字符。记事内容调入内存后，用户可以任意对 
某一行或全部内容进行查看、修改、删除和打印。可 
以任意添加一行或多行内容，可以在任意一行后插 
入其它内容。每一步操作都有详细的中文提示，使用 
方便。 

本程序主要优点是:记事内容以 9 行为一屏幕， 
按任意键转入下一屏幕，直至完毕，又回到菜单。 

此外，读者只须做少 M 的改动，就可把西文状态 
下的顺序文件和随机文件用于此程序。故不再 介绍。 
10 PRINT CHR $ (4);PR#3" :PRINT : HOME 
20 ON ERR GOTO 140 
30 DIM A$ (360) 

40 D$ 二 CHR $ (4)：PRINT D$ ;“NOMON C ， 1 ， 0” 

50 VTAB 1 ,HTAB 11 ： PRINT w 家庭档案" 

60 VTAB 4：HTAB 7：PRINT "中文状态下的顺序文件 v 
70 VTAB 8 ： INPUT "请输入文件名 ：： v ;Q $ : FL$ =Q$ 
80 PRINT D$ ,"OPEN" ； FL$ 

90 PRINT D$ ;"READ" ;FL$ 

100 FOR R 二 1 TO 360 
110 INPUT A $ (R) 

120 NEXT R 

130 PRINT D$ ; "CLOSE v ;FL$ 

140 N 二 R-l 

150 HGR2：VTAB 3：PRINT " 文件 名：％ FL$ 

160 PRINT : PRINT "共有 ” ； N ; ” 条语句 •" 

170 VTAB 7 ：INPUT "你需要建立几条语 句 :" ;Q $ *0= 



VAL(Q$ ) ： N-Q 



180 

IF Q 0 THEN J70 



190 

HGR2：VTAB 1 : HTAB 14 

■ PRINT " 

档案 v 

200 

PRINT : PRINT TAB ⑺； , 

査看〃 

;TAB(22) ; "5 .删 

除 " 




210 

PRINT TAB(7) S W 2. 修改” 

； TAB(22) ； ,, 6. 打印 w 

220 

PRINT TAB(7)»"3 •添加" 

;TAB(22); 〃 7 •存 盘” 


230 PRINT TAB(7) ； ,/ 4. 插入％ TAB(22) ;"8. 结束 7 
240 VTAB B：HTAB 14 : PRINT 7 请选择:"； ： GET Q $ : 

PRINT Q $ ：Q = VAL (Q $ ) 

250 IF Q <1 OR Q>8 THEN 240 

260 ON Q GaSUB 280,370,590,620,740,480,850,960 

270 GOTO 190 

280 GOSUB 550 


290 HOME ：T =0 
300 FOR R = R1 TO R2 
310 T=T+1 
320 PRINT A$ (R) 

330 IF T = 9 AND R <R2 THEN VTAB 9：HTAB 32 j 
PRINT ,n, ； : GET Q$ : HOME : T=0 
340 NEXT R 

350 VTAB 9：HTAB 32：PRINT ,n, , : GET Q$ 

360 RETURN 
370 GOSUB 550 
380 HOME ： T=0 
390 FOR R = R1 TO R2 
400 T=T+1 

410 VTAB T ： PRINT TAB(2) ； A$ (R) ；： HT/\B 1 : INPUT 

0 $ 

420 IF LEN (Q$ )< >0 THEN A$ (R)=Q$ 

430 VTAB T：PRINT TAB(2) ； A$ (R) 

440 IF T- 9 AND R < R2 I'HEN VTAB 9：HTAB 32 ： 
PRINT ，: GET Q$ : HOME ： T=0 
450 NEXT R 

460 VTAB 9：HTAB 32：PRINT ,,f, ； : GET Q$ 

470 RETURN 

480 GOSUB 550 

490 POKE 915.75：POKE 1659,5 

500 FOR R = R1 TO R2 

510 PRINT A$ (R) 

520 NEXT R 

530 POKE 915,76:POKE 1659,0 
540 RETURN 

550 VTAB 10 ： PRINT v 请选择 1 — w ;N ;〃 条语句 （ 0 选全 
部 )" ；： INPUT ，”， ； Q$ ：Q = VAL(0$ ) 

560 IF (Q<1 OR Q>N)AND Q$ < 〉 "0"THEN PRINT 
CHR $ (7 )；： GOTO 550 

570 R1=Q ： R2-Q：IF 0=0 THEN R1 = 】： R2 = N 
580 RETURN 

590 VTAB 10：HTAB 8：INPUT "你需要添加儿条 语巧％ 
OS ：Q = VAL(Q$ ) 

600 R1=N + 1:R2 = N+Q:N = N+Q 
610 GOTO 380 

620 VTAB 10：HTAB 3：INPUT " 你需要插在哪-条语句 
的后 面，， ;Q$ ： Q=VAL(Q$ ) 

630 HGR2：VTAB 2： PRINT TAB(2) ； A$ (Q) 

640 PRINT :PRINT TAB(7); V 在这条后面 ? (Y/N)" ;: 
GET Q$ : PRINT Q$ 
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650 IFQ$ <> "Y"THEN RETURN 
660 VTAB 6 : INPUT Q $ 

670 R1=Q+2:R2 = N + 1:N = N+1 
680 FOR R = R2 TO R1 STEP-1 
690 A$ (R)=A$ (R-l) 

700 NEXT R 

7]0 A$ (Q+1)=Q$ : VTAB 6 : PRINT TAB(2)；A $ (Q 

+ 1 ) 

720 PRINT : PRINT TAB (14) 已插入 ！ w :FOR 1 =1 TO 
1000 ： NEXT I 
730 RETURN 

740 VTAB 10：HTAB 7 ： INPUT w 你需要删除哪一条语 
句 ";0$ ：Q = VAL(Q$) 

750 HGR2 ： VTAB 2: PRINT A $ (Q) 

760 VTAB 5：HTAB 9：PRINT " 是这一条语句吗 ？" 

770 PRINT TAB (13) (Y/N) w ? ：GET Q $ : PRINT Q$ 

780 IF Q $ < > "Y"THEN RETURN 

790 R1 =Q ： R2 = N-1 ：N = N-1 

800 FOR R = R1 TO R2 

810 A$ (R)=A$ (R + l) 

820 NEXT R 


830 PRINT : PRINT TAB(13); W 已 删除 :FOR 1 = 1 TO 
1000 ： NEXT I 
840 RETURN 

850 HOME : PRINT D$ ;，，MON C ， I,0" 

860 PRINT D$ ;“OPEN”;FL$ 

870 PRINT D $ ； “DELETE”; FL $ 

880 PRINT D$ “OPEN”;FL$ 

890 PRINT D$ ;“WRITE” ； FL$ 

900 FOR R=1 TO N 
910 PRINT A $ (R) 

920 NEXT R 

930 PRINT D$ ;“CLOSE”;FL$ 

940 PRINT D$ ;"NOMON C,I，CT 
950 RETURN 

960 HGR2：VTAB 4：HTAB 11：PRINT " 按任怠键结束 " 
970 VTAB 6:HTAB B:PRINT "Y 键继续使用本程 序 ％: 
GET 0$ 

980 IF Q $ = W Y W THEN D=FRE(0) ：RUN 30 
990 HGR2：VTAB 5：HTAB 14：PRINT 14 :PRINT " 再见，，： 
VTAB 9: END 


«•**?% «*■% 决 . ^0 <^0 Skt ^0 

• 通讯. 

济南市教育学会电子计算机 
教育研究会召开第四届年会 

吴安栋 

1989年11月5日，济南市教育学会电子计算机教学研究会召开第四届年会，会议为期一天，到会的有 
来自市中区的中、小学、职业中学、中专近二十余所学校及区教委、少年宫从事计算机教学和辅导工作的教师 
近五十余人。上午，代表们共乘一辆车先后来到济南二十中及位于西郊的无影山小学，通过参观这两所学校 
简陋的计算机教学活动场地设置及听取两位校长对各自开展计算机课外兴趣小组活动的情况介绍后，到会 
代表无不深受教育，感动地 说:领 导重视，任教老师热心和有献身计算机教育事业的决心是这两个学校取得 
成绩的主要原因。这两所学校在条件差的情况下能走在全市计算机教学行列的前面，同时培养出一批在全市 
计算机竞赛中获奖的尖子学生，是因为领导亲自抓，任教老师克服种种困难才取得的成绩。无影山小学的黄 
恒老师便是这样一位自强不息、拼搏不止的中年人。这所学校仅有一台 LASER —310机，但在他的努力下不 
少学生捧回了市“浪潮杯”、“泉城杯”微机大赛的奖状。这使到会代表无不油然而升敬意。二十中也是条件较 
差的学校，但他们当场演示了配和教学的自己研制的理化教学软件令代表们赞叹不已。下午，代表们乘车来 
到省重点中学山东实验中学后，听取了该校校长的经验介绍和计算机任课老师汇报。参观了该校较为先进的 
计算机机房，该校是继济南一中之后又已把计算机课正式列入课程表作为高中学生必修课的学校。代表们在 
会期内相互切磋学问、交流信息、探讨有关计算机教育的各方面问题，感到与教研会初期相比，济南市中、小 
学在计算机配置上条件已有一定改观，计算机教学活动已有一定规模发展，但是仍然存在不少有待解决的各 
种问题，大家均感到这次会议开得生动活泼、大有收获、深受鼓舞，恳定对今后一年的全市计算机教学活动有 
大的促进作用。 
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测量平差计算和精度评定的通用程序 

石家庄市规划设计处任朝生李艳霞 


目前，在测量行业，夏普 PC- 1500 计算机已得到 
广泛应用。尽管已有些适用于 PC-1500 机计算测董 
平差的程序，但一个程序只能解决一类平差问题，局 
限性较大，为此，我们编写了适合于 PC-1500 机使用 


计算并对其进行精度评定。参加平差的观测值是归 
算到投影平面上的边长和经过改变的角值。本程序 
对带有 16K 字节模块 (CE-161) 的 PC-1500 机，可计 
算含有 15 个条件方程式和 20 个未知数的平差问 


的解算测董平差问题的通用计算程序。 

测董平差就是根据最小二乘法原理，寻求其中 
能使 “ V T PV = 最小”的一组 V 值，并以此解算出观测 
值的最或然值。从根本上讲，测量平差是一个较复杂 
的数学问题。本通用程序就是基于测 M 平差这一特 
点编制的。它采用线性代数的理论处理由条件方程 
式所组成的系数增广矩阵。 

一、数学模型 


由平差问题所组成的条件方程式其矩阵形式 
为： 

AL - fA 0 = 0 (1)( A : 系数矩阵） 

AV-f W -0 (2) 其中 W = AL + A 0 

由于条件方程 （2) 的系数矩阵 A 的秩为 R ( A ) 
= Y ， 方程中的未知数向量 V 的维数为 n ， 且 n>R 
( A )， 所以 （2) 中 V 的解不是唯一的。按照测量平差 
理论，需取用拉格朗曰乘数法求出7^ =最小的一 


组解。 


设有联系数向量 


K 1 = (KaKb—Kr) 
lXr 


组成新函数 0=V T PV- 2K T (AV + W) 

贝 lj : 黑=2\^-21<7八= 0 

即： V T P 二 K T A 
V = P 1 A T K 


1 nXn nXr rX1 


(其中 K =— N _ 


W) 


计算单位权中误差采用 公式: 

计算平差值函数的权倒数采用 下式： 


Q H .. = rp-if_f-f T p-*A T q 

(其中 q =_N " A P_1 f 
rXl rXr rXn nXn nXl 

二、程序功能 

本程序采用条件平差方法，完成控制网的平差 


题。 

为节省机时，扩大解题范围，本程序分五段编 
制。第一段 :输入 全部计算中所需数据及有关信息。 
第二 段:检 查及修改第一段所输数据及信息。第三 
段: 组成并解算法方程。第 四段: 进行精度评定。第 
五 段:输 出平差值及单位权中误差和平差值函数的 
权倒数。 

三、 简单变量及数组名称的含义 

M : 条件方程式个数 

N : 未知数个数 

A ( I ， J ): 条件方程式之系数增广矩阵 

F ( I ): 平差值函数式之系数矩阵 

Q (1， J ): 权逆阵 

四、 输出结果 

输出的结果包括 :条件 方程式系数及常数项、权 
函数式之系数阵权逆阵、法方程式之系数矩阵、所解 
出的联系数、改正数矩阵和精度评定。各输出部分的 
前部均有汉语拼音提示。 

在原程序中，须对矩阵进行数十次乘法处理。故 
我们编写了下列子程序供主程序调用。 

860 ： FOR 1=1 TO N ： FOR J=1 TO M 

870 ： C=0 

880 ： FOR K=1 TO N 

890 ： C=C+Q(I ， K) * B(K ， J) 

900 ： NEXT K 

910 ： L(1 ， J)=C 

920 ： NEXT J ： NEXT I 

930 ： FOR 1=1 TO N 

940 ： CC=0 

950 ： FOR K=1 TO M 

960 ： CC=CC+L(I ， K) * A(K ， M+1) 

970 ： NEXT K 
980 ： VV(I)-CC 
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990； NEXT 1 

五、示例 

某一按不等权观测的基线网平差，其条件方程 
式如下(选自《控制测量计算手册》150 页）： 

_ V 2 + V 3 — V 4 + V 6 — V 7 + V 8 — 0. 87 = 0 \ 

— V 】+ V 3 — V . 4 + V 5 — Vn + V 12 —1. 12 = o | 图形条件 
— Vi + V 〗 一 V 8 + V 9 — V 10 + V 12 +0. 41 = 0/ 

方程式 

2. 88 V 4 — 4. 84 V 5 + 1. 96 V 6 +0. 78 V 7 — 1. 91 V 8 
+ 1. 13 V 9+1. 62 V 10 -4. 06 V u + 2. 44 V 12 +7 = 0 
极条件方程式 
其权函数的直线形 式为： 

F s = 1. 71 V , - 1. 71 V 3 + 4. SAVi - 4. 84 V 5 — 
1. 13 V 8 +1. 13 V 9 +1. 62 V , o - l . 62 V , 2 

示例输出的 〈改 正数〉和〈精度 评定〉 结果 如下： 
(GAI ZHENG SHU) 


六 、程序框图 


子程序 


V ( l ) = 
V (2) = 
V (3)== 
V (4) = 
V (5) = 
V (6) = 
V (7) = 
V (8) = 
V (9) = 
V (10) = 
V ( ll ) = 
V (12) = 


-0. 08044 
-0. 13256 
0. 11358 
-0. 20747 
0. 93914 
-0. 02730 
-0. 06202 
0. 38165 
-0. 03338 
一 0. 05627 
0. 22153 
0. 00088 


(JING DU PING DING ) 

PW = 0.34486 
I / PF = 3.93187 
M 0= 0.29362 

M = M 0* J (1+ PF ) = 0. 58223 



七、结束语 

本文应用线性代数的理论处理测量平差问题。 
我们用本程序对《测量平差基础》、《控制测量计算手 
册》等书中的大量条件平差问题进行了验算，结果完 
全一致。其正确性和严密性已得到了证实。因而具 
有较好的通用性。 

因篇幅所限，程序略。需要者与作者联系。 

参考 资料： 

1.《测量平差基础》，武汉测绘学院出版。 

2- 《控制测量学》，武汉测绘学院出版。 

3.《控制测量计箅手册》，冶金工业出版社出版。 


欢迎邮购86、87、88、89年苹果园合订本 

为方便读者，我社将86年、87年、88年、89年的苹果园杂志加工成合订本，每本定价 5 . 40 
元（另 加收 10%邮费）欲购者 可从邮 局或银行来款。联系地址〗 山 ’ 糸省濰坊市东风大街 6 0号，银 
行 ：濰坊 市工商行糸关办事处，帐号： 896315。数量不多，欲购者从速。 
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CEC — XMF 汉字转换程序 


徐州市重型机械厂 卢义 


“小蜜蜂” (XMF — I) 机是中华学习机系列中功 
能较高的，属增强型机器，有五种汉字输入方法，且 
具有联想词组输入系统，其汉字输入速度大为提高。 
但遗憾的是其汉字内码与 CEC-I 机不同，故两者中 
文 BASIC 软件不兼容，使得 CEC 机上的汉字在 XMF 
机上不能正常显示打印。如要移植程序，则需重新输 
入汉字部分，在没有原程序清单或汉字量很大的情 
况下，这项工作较难完成。为此本文将介绍一个小程 
序，可以很方便地将 CEC 机上的汉字程序转换为能 
在 XMF -1 机上正常使用的汉字程序。 

一、 程序说明 

本程序行号取得很大，在执行时自动附加到被 
转换的程序后面，共存于内存中。 

5 〜 30 行: 建立名为 CEC — XMF 的 T 类文件。 

63110〜63116行 ：连续 读取内存中的三个字 
节，并判断是否为 CEC 机汉字内码。 

63118 〜 63126 行：把 CEC 机内码转换为 XMF 
机内码，并显示已转换的汉字。 

63128〜63136行 ：内码 转换子程序。 

二、 使用方法 

在 DOS 系统下，输入本程序并运行，即在盘上 
建立了代码转换的 T 文件 CEC — XMF 。 用 LOAD 命 
令装入要转换的 CEC 机汉字程序。键入 EXEC 
CEC — xrnF 后，即开始代码自动转换，同时显示已转 
换的汉字，待显示“转换完” Bt ， 再把程序中的 “ PR # 
3”改为 “PR# 5”，即可在 xmF— I 机上运行。 


5 REM CEC—XMF 汉字转换程序 

10 D$ =CHR $ (4 )： PRINT D$ ,"OPEN CEC-XMF": 

PRINT D$ , w WRITE CEC—XMF" 

20 POKE 33,30：LIST 63110,63136：PRINT "PR# #5": 
PRINT "RUN63110" 

30 PRINT 〃DEL 63110,63136" :PRINTD$ j^CLOSE CEC 
-XMF':END 

63110 HOME ： FOR N = 2048 TO PEEK (176) * 256 + 
PEEK (175) 

63112 P=PEEK(N).IF P< >127 THEN 63124 
63114 N = N+1：X = PEEK(N)：IF X<28 OR X >126 
THEN 63124 

63116 N = N+1:Y = PEEK (N)：IF Y <28 OR Y >126 
THEN 63124 

63118 D=X：GOSUB 63128：A = DD ： =Y：GOSUB 63128 ： 
B=DD 

63 】 20 K = P—1：POKE N —2,K：POKE N—l,A：POKE N 
,B 

63122 PRINT CHR $ (K),CHR$ (A) ； CHR$ (B )； 

63124 NEXT N：PRINT : PRINT 

63126 PRINT “ 转换 完 ”: END 

63128 IF D< 34 THEN DD=D+4 

63130 IF D> 33 AND D<44 THEN D=DD+3 

63132 IF D>43 AND D<58 THEN DD=D+2 

63134 IF D〉57 AND D<126 THEN DD=D+1 

63136 RETURN 
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微机职业中学的好路子 


为适应现代化建设的需要，河北省石家庄市第 
34中学1984年改办成微机职业高中——市第二职 
业中学，现在教学班18个，在校学生830人。该校教 
职员工解放思想锐意改革，走出了一条职业教育的 
好路子。 

在学习理论知识的基础上，突出抓好教学的实 
践环节，是该校的重要特征。学校设置微机机房三 
个，配备各种微机六十余台，中英文打字室两个，配 
备复印机、打字机共18台，微机、复印机、打字机维 
修室各一个，此外，还与社会联办的生产车间和家电 


维修室各一个，兼作实习基地的经营门市部三个。 
学校给学生提供了广阔的实践场所，学生们不仅初 
步掌握了操作、维修和编制简单软件的技能，而且， 
指法的熟练程度得到了很大提高，高年级学生均可 
达到每分钟输入150个字符以上。 

由于该校培养的学生在思想、知识和操作技能 
上都有良好的素质，毕业分配后，能迅速担当起工 
作，受到普遍重视和好评，因此，社会有关各界纷纷 
主动要求接纳该校毕业生。 

(崔来觉 李瑙龙） 


43 






• 实用程 序 • 


中华机汉字文件的显示打印 


坊子区54698部队 孙书鹰 


由于中华学习机的汉字内码与 apple — n 机 
的国标字形字词汉卡的汉字内码不同，所以，不能将 
中华学习机上的汉字文件直接移植到配有国标字形 
字词的汉卡的 apple — n 机上使用。对于较大的汉 
字文件,重新输入汉字进行修改，费力、费时，而且很 
容易出错。针对这一问题，笔者编写了一段小程序， 
对汉字内码进行转换，实现了中华学习机汉字文件 
在 APPLE— II 机国标字形字词汉卡支持下实现显 
示、打印。现介绍 如下： 

中华学习机的汉字内码为 CHR $ (127 )+CHR 
$ ( II )+ CHR $( JJ )。 其中， II、JJ 取29至 125之间 
的值，并去掉其中的34、44和58三个值。国标字形 
字词汉卡的汉字内码为 CHR $ ( A )+ CHR $ ( B ) + 
CHR $ ( C)+CHR $ ( D ), 其中， A 、 B、C 和 D 取 97 至 
106 之间的值。不难看出上述两种汉字内码在编码 
方式上都有其特殊点，归纳 如下： 

1、 中华学习机的汉字内码第一个字符必须是 

CHR$ (127 )： 

2、 国标字形字词汉卡的汉字内码由四个字符组 
成，它们是 a 〜 jlO 个小写字母的组合。 

这两点是编程转换的重要依据，下面简述一下 
编程 思路： 

. 1、对给定的中华学习机字符串 A $，先判断其 
中是否有中华学习的汉字内码，即看是否有 CHR 
$ (127) 字符，若有则对 CHR $ (127) 字符后的两个 
字符进行处理（见3)。 

2、 若没有发现 CHR $ (127) 字符，则必然不是 
汉字内码,不转换，原样送出。 

3、 将 CHR $ (127) 后的两个字符转换为对应的 
区位码。 

4、 将上述区位码转换为 APPIJ: II 机的国标 
字形字词汉卡的汉字内码。 

这样我们就可将中华学习机的汉字内码转换为 
APPLE ： — D 机的国标字形字词汉卡的汉字内码，下 
面是这一过程的的程序清单。 

10000 xx $=〃〃 

10010 L=LEN(A$) 

10020 FOR KK=1 TO L 
10030 B$ =MID$ (A$ ,KK ， 1) 


10040 IF ASC (B$ ) = 127 THEN 10060 
10050 XX$ =XX$ + B $ : GOTO 10190 
10060 FOR OQ =1 TO 2 
10070 B$ = MID$ (A$ ,KKH-QQ,1) 

10080 IF ASC (B$ )〈35 THEN Z = ASC (B$ )-28 ： GO- 
TO 10120 

10090 IF ASC(B$ )<45 THEN Z = ASC (B $ ) — 29 ： GO¬ 
TO 10120 

10100 IF ASC (B$ )〈58 THEN Z = ASC (B$ ) — 30 ： GO¬ 
TO 10120 

10110 Z = ASC (B$ ) —31 

10120 C$ =STR$ (Z)：IF Z< 10 THEN C $ ="0" +C $ 
10130 U$ =M1D$ (C$ ， 1 ， 1):V$ =MID$ (C$ ,2,1) 
10140 U = 494-ASC (U$ ) : V = 49 + ASC ： (V$ ) 

10150 Z$ =CHR$ (U) +CHR$ (V) 

10160 XX$=XX$+Z$ 

10170 NEXT QO 
10180 KK =KK +2 
10190 NEXT KK 
10200 A$=XX$ 

10210 GJ = FRE (0) 

10220 RETURN 

由于上述转换需要时间，所以，中华学习机上的 
汉字文件移植到 APPLE — I 机上后，运行速度将受 
影响，这是它的不足之处。另外，上述程序连接到主 
程序上后，其数值变量、字符串变量与主程序冲突的 
要进行修改。 

顺便说一下，上述变换是可逆的，即也可将 ap ¬ 
ple - n 机国标字形字词汉卡支持下的汉字文件移 
植到中华学习机上运行。具体过程不再赘述。下面 
是这一变换的程序清单。 

10000 xx$="" 

10010 LL=LEN (A$ ) 

10020 FOR KK = 1 TO LL 
10030 B$ =MID$ (A$ ， KK ， 1) 

10040 IF ASC (B $ ) =>97 AND ASC(B $ )<= 106 
THEN 10060 

10050 XX$ =XX$ +B$ : GOTO 10240 
10060 : FOR QQ = 0 TO 3 

10070 B$ (QQ)= MID$ (A $ ， KK+QQ,1) 

10080 A(OQ)=ASC (B$ (OQ)) 49 
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• 实用程 序 • 


CEC — I 汉字输入方式的自动转换 


福建南平师范学校 李锋 谢吉华 


中华学习机 ( CEC — I )在中文状态下提供了三 
种输入方式（字母、拼音、区位），它们是通过接 
“？1”、$2”、 < ^3”功能键来选择不同输入方式，其功 
能定义 如下： 

“ F 1” 键:字 母输入方式。 

“ F 2” 键:拼 音输入方式。 

“ F 3” 键：区 位输入方式。 

在执行程序的 input 语句时，我们觉得用功能 
键 “ Fi ” —— “ F 3” 来改变汉字的输入方式很不方便。 
例如： 某程序中有如下两个 语句： 

200 INPUT “请输入姓 名”; NA$ (I) 

210 INPUT “请输入考试得 分”; DA(I) 

在执行200语句时，因为要输入的是汉字，我们需要 
先按 “ F 2” 键进入拼音输入状态，然后再输入汉字。 
而执行210语句时，我们又要选接 “ F 1” 键返回字母 
状态，才能输入考试得分。如果我们要输入一大批学 
生的姓名和考试得分，就必须频繁地按 “ F 2”、“ F 1” 
键来切换输入方式，即麻烦，又容易出错。能不能让 
计算机自动切换输入方式呢？回答是肯定的。本文 
将介绍在程序中自动切换输入方式的方法。 

在中文状态下，$ 3 AE (十进制 942) 单元是汉字 
输入方式的标志单元， CEC — I 机就是通过检査该单 
元的值来确定输入方式。例如 :执行 POKE 942，151 
命令后，计算机就自动切换到区位输入方式，该单元 
所存的值和输入方式的对应关系 如下： 

$3 AE 单元的值 输入方式 

129 字母输入方式 

140 拼音输入方式 

151 区位输入方式 


改变$ 3AE 单元的值，虽然能改变 CEC-I 机中 
文时的输入方式，却不能改变屏幕左下角的姿态提 
示符。若要改变状态提示符，还需要将状态提示符的 
首地址存入零页的 251,252 两个存贮单元，再用 
CALL 50030 调用驻机的“状态字显示子程序”即可。 
状态字的首地 址是： 

“字母”的首地址低、高位是:245 237 
“拼音”的首地址低、高位是:253 237 
“区位”的首地址低、高位是:5 238 
下面是用 BASIC 语言编写的三个输入方式自 
动切换的子 程序： 

9910 POKE 942, 129： POKE 251, 245： POKE 
252, 237： CA 22 50030： RETURN : REM 
字母 

9920 POKE 942, 140： POKE 251， 253： POKE 
252, 237： CA 22 50030： RETURN : REM 
拼音 

9930 POKE 942, 151: POKE 251,5： POKE 252, 
238： CA 22 50030： RETURN : REM 区位 
以上三个子程序能分别使计算机自动切换到字 
母，拼音，区位输入方式。其应用举例 如下： 

200 GOSUB 9920： INPUT “请输入姓名、 NA 
$ ( I ) 

210 GOSUB 9910:INPUT “请输入考试得分”; DA 
( I ) 

改变后的程序当执行200语句时，计算机自动 
地切换到汉字输入方式，而执行210语句时计算机 
又自动切换到字母输入方式。 




10090 X$=X$+CHR$ (A(QQ>) 

10100 NEXT QQ 
10110 KK = KK-f 3 

10120 U$ =LEFT$ (X$ ,2) ： V $ =RIGHT $ (X$ ， 2) 
10130 U(1) = VAL (U$ ) ： U(2) = VAL(V$ ) 

10140 X $=，"， 

10150 FOR WW = 1 TO 2 

10160 IF U(WW)< 34THEN U(WW) =U(WW) + 28: 
GOTO 10200 

10170 IF U(WW)<44 THEN U(WW) =U(WW)+ 29: 
GOTO 10200 


10180 IF U(WW)<58 THEN U(WW) =U(WW) + 30: 
GOTO 10200 

10190 U(WW) =U(WW) + 31 
10200 X$ =X$ +CHR$ (U(WW>) 

10210 NEXT WW 

10220 X $ =CHR $ (127)+X$ 

10230 XX$=XX$+X$ 

10240 NEXT KK 
10250 A$ =XX$ 

10260 GJ = FRE (0) 

10270 RETURN 
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• 实用程 序 • 


中华学习机汉字库的查询 

云南保山师范专科学校 尹天益 


目前 , CEC — I 型中华学习机已大量进入学校和 
家庭。在用 CEC —I 型学习机进行计算机辅助教学系 
统及其它应用程序的设计中，常常要用到许多非英 
文字母及特殊符号。这些符号及字母往往只能通过 
区位码方式调出，而有关区位码的资料一般都较缺 
乏。本程序正是为了解决中华学习机汉字或符号区 
位码的自动査询打印问题。 

为了满足各种需要，本程序设置了三种查询方 
式： 1. 在拼音状态下输入汉字査区位码; 2. 在区位码 
状态下直接査找汉字(符号）;3.分区査询、打印区位 
码—汉字(符号)对照表。 

实际使用中还需注意，在 CEC —I 汉字库 （1 一94 
区）中，第〗0区到第15区都是空库。程序中第426 
号语句是设置打印对照表时每行打印的字数，此语 
句可根据打印纸的宽度自由选取。根据本程序的特 
点，很容易实现全字库字典的区位码•-汉字（符号） 
对照表自动输出打印工作。 

10 HOME:PRINT"l . 拼音奄询 2 •区位査询 
15 PRINT "3. 分区查询 4. 退出系统 " 

20 PRINT " 请 选择 : " ；： GET A 

25 IF A = 4 THEN END 

28 POKE 1659. 0 

30 ON A GOSUB 200,300,400 

35 GOTO 10 

200 HOME 

202 INPUT " 拼音状态输入 汉字 : ％ A$ :L = LEN (A $ ) 
205 PRINT A $ ;" 的区位码："； 

210 FOR 1 = 2 TO L：P = ASC < MID $〈A $ ， I, 1 > > :GO- 
SUB 600,NEXT : PRINT : PRINT " 按任 意键继续!" ： 
GET H $ : RETURN 
300 HOME : PRINT w 区位奄询 " 

302 INPUT " 请输入区码〈 1 一一 94):";A 

305 INPUT M 请输入位码 U —— 94)： W ；B 

310 F =A：GOSUB 700 ： Q=FF ： F=B：GOS UB 700：W = 

FF 

315 B$ =CHR$ (127)-fCHR$ (Q)-fCHR$ (W) 

320 GOSUB 800 

330 PRINT ，，码的符号： " ； B$: PRINT "按任意键继 
续 ！ w : GET H$ : RETURN 

400 INPUT ，，请 输入区 码（】 —— 94)： W ；A 

401 L=0 

405 F = A：GOSUB 700 ： Q=FF 


410 FOR B=1 TO 94 

415 F = B ： GOSUB 700：W = FF ： B$ = CHR $ (127) + 
CHR$ (Q)+CHR $ (W) 

420 GOSUB 800 

425 PRINT w W ； B$ ； w 

426 L=L+1:IF L> = 10 THEN PRINT 7 ，，： L=0 

427 NEXT 

428 POKE 1659,0 

430 INPUT “ 是否打印 (Y/N)?” ; A$ 

435 IF A $ = u Y n THEN CLEAR : X 二 FRE 〈 0 > : POKE 
1659,1 ：POKE 2043 J20：POKE 19 】 5,5:GOTO 400 
440 RETURN 

600 IF P>28 AND P<34 THEN P=P—28 
605 IF P>34 AND P<44 THEN P=P — 29 
610 IF P>44 AND P<58 THEN P=P—30 
615 IFK P>58 AND P<]26 THEN P = P—31 
620 IF P〉10 THEN PRINT “0” ； P:GOTO 830 
625 PRINT P 5 
630 RETURN 

700 IF F〉0 AND F<6 THEN FF = 28 + F 
705 IF F>5 AND F<15 THEN FF=29 + F 
710 IF F>14 AND F<28 THEN FF = 30 + F 
715 IF F>27 AND F<=100 THEN FF 二 31+F 
720 RETURN 

800 IF A<10 THEN PRINT “[”,“0”;A; : GOTO 810 
805 PRINT “[”;A, 

810 IF B<10 THEN PRINT “]”；： GOTO 820 

815 PRINT B; 

820 RETURN 

《中华学习机》杂志程序软盘 


《中华学习机》杂志每期都刊登多个精彩、实用、 



文章，欲进一步了解程序的奥妙时，看见那些冗长的 
程序清单，就倒了胃口！为了减少您的麻烦，节省您 
的宝贵时间，我们将每期出版的《中华学习机》杂志 
所登载的程序，全部录入在一张高质量的盘片上，随 
杂志同时出版销售，欢迎您购买《中华学习机》程序 
软盘。每张售价15元。 
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全国青少年计算机 
冬令營竞赛剪影 


左图： 全国政协王任重副主席出席冬令营 
并作了重要讲话 


下图： 计算机冬令营.竞赛委员会主任潘懋德 
作冬令营筹备工作报告 


上图： 全国教育学会会长，中华学习机 
协会理事长张健在大会上宣读 
李铁映同志的题词 
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